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ARO IF 


in moltissimi mi hanno scritto di aver apprezzato notevolmente la 
cassetta offerta in regalo nel numero di gennaio. Tutti poi 
concordemente si sono dichiarati entusiasti per il tipo di programma 
che in quella cassetta offrivamo: un data base serio, sia per Commodore 
sia per Spectrum, che nessuno mai prima d'ora aveva fatto lo sforzo di 
offrire gratis ai suoi lettori. E un gioco per VIC 20, adatto anche agli 
inespansi. Proprio per l'entusiasmo con cui avete accolto la nostra 
iniziativa, anche questo mese abbiamo deciso di inserire in 
RadioELETTRONICA ^COMPUTER un magnifico regalo per tutti voi: le 
adesive per cassette. Tutti coloro infatti che adoperano abitualmente le 
cassette per registrare i propri programmi non sanno mai come fare, 
quando vogliono recuperare una cassetta già usata, per rietichettarla 
con nuovi contenuti. E allora ognuno si industria come può: carta e colla 
non sono certo la soluzione ideale, ma d'altronde non esistono in 
commercio le etichette sfuse. Be', in questo numero di 
RadioELETTRONICA ^COMPUTER ne trovi sei, gratis, tutte per te. 

Ti va l'idea? 

Ma non perdere nemmeno il prossimo numero, primo perché sarà 
denso di nuovi programmi assolutamente fantastici, secondo perché ti 
abbiamo preparato un regalo a sorpresa che è la fine dei mondo. 

A proposito di programmi fantastici, vai subito a vedere in questo 
numero il sintetizzatore per Commodore 64 o il programma di gestione 
di una biblioteca prodotti da lettori come te, ai quali vanno i 
complimenti di tutto lo staff di RadioELETTRONICA &COMPUTER (oltre a 
un contratto regolare e un assegno adeguato al loro lavoro). 

Complimenti anche agli altri, che magari ancora non hanno prodotto 
un software adeguato, ma che, con uno sforzo, possono arrivare a quei 
livelli di professionalità che pretendiamo perché i loro programmi 
vengano pubblicati sulla nostra rivista. 

Buona lettura e buon divertimento... 
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Voi sulla luci l’avete un misuratore elettroni¬ 
co di velocità? Difficile da lare non è, ejia 
quasi la potenza di un computer (pagina 51) 


ARCHIVIO 

COMPONENTI 


Non occorre essere una ditta specializzata: 
qualsiasi amatore sa che è terribile gestire un 
magazzino, anche piccolo, di componenti E 
se ci fosse un programma, facile e fatto su 
misura, per mantenere l’ordine? (pagina 36) 
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DEFENDER 


Cosa c’è dietro quel muro? Piacerebbe anche 
a Orwell la versione aliena di un videogame 
tra i più famosi: la palla, il muro, il rimbal¬ 
zo (pagina 19) 


FILETTO 3D 


Un nuovo gioco in grafica Applesoft, facile c 
molto gradevole anche per merito della sua 
eccezionale pulizia grafica: tre righe, tre co¬ 
lonne, tre colori... (pagina 46) 
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Non riducetevi a dire no se qualcuno vi chie¬ 
de un libro II problema dei prestiti che si 
trasformano in donazioni si può finalmente 
risolvere: questo programma (pagina 62» sa 
gestire una biblioteca scolastica, figuriamoci 
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SOMMARIO 


MUSICA, MAESTRO! 


Un programma che fa suonare il Commodo¬ 
re 64 non è una novità: quasi tutti ne hanno 
uno. Miscelando le forme d'onda, però, 
qualcosa di veramente nuovo salta fuori. 

(pagina 26) 



SINTETIZZATORE 


Se programmi un videogame a base di attac¬ 
chi aerei, chi te lo fa il rumore della bomba? 
E per mixare dei dischi, non ti farebbe corno 
do una musichetta di stacco impostata da te'.’ 

(pagina 8) 
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8 Sintetizzatore per VIC 20 . Per abili deejay e fantasiosi programmatori 
una nuova gamma di effetti speciali, rumori, rumoracci e musichette: dal motivetto per un 
mix "personalizzato al rombo dell'esplosione nucleare 

12 Esperimenti con Apple, Un connettore di I/O giochi per rilevare il 

valore di input delle paddle, ma non solo... 

14 Printer plotter 1520. Le prestazioni di una macchina che, come il 1520, 

unisce le caratteristiche del printer e quelle del plotter, sono tantissime In tenui di tempo 
libero, questo mese codici cifrati e puzzle geometrici prodotti in un baleno dal più abile 
artefice di rompicapo: "il computer. 


1» Spectrum. La versione riveduta e corretta, alla moda degli alieni, del famoso 
videogioco del muro, della palla e del rimbalzo... 


Zb Sintetizzatore per Commodore 64. !Juanii si ni menti volete per la 

vostra orchestra? Cinque o cinquanta? Vi piacerebbt sali . un podio per dirigere 

un’intera orchestra sinfonica che suona la vostra ultima composizione ’ Qualcosa di piu di 
un sintetizzatore: la vostra bacchetta elettronica dà il via a una nuova sinfonia. 


32 VIC 20 . Non in tutti i labirinti c'è un'Arianna con il suo provvidenziale Ilio. 

Spesso invece ci sono trabocchelli e pericoli inaspettati. Ci si può però salvare, e, in questo 
dedalo disseminato di dracme, diventando ricchissimi ... 

36 SpeCtmm. Tenere in ordine i propri componenti è, per ogni amatore un sogno 
per il futuro e un incubo per il presente. Capita spesso di uscire di corsa per acquistare delle 
resistenze che invece erano in casa, oppure di non trovare quei diodi che "erano li fino a 
" Tutta colpa del disordine! Ma una soluzione adesso c'è . 
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Apple. Filetto tridimensionale è un gioco nuovo, facile e divertente Ma attenzio¬ 
ne: non è ammesso il pareggio. Si gioca per vincere! 
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51 Per tutte le bici. Un progetto elettronico di facile realizzazione per dotare la 

vostra bicicletta di un tachimetro che è quasi un computer... 


62 


Commodore 64. Tenere in ordine i libri, e sapere a chi sono stati prestati non 
è cosa da poco. Quante volte ci si infuria con Lamico più caro solo perchè non restituisce mai 
i libri! Se a chiedere prestiti sono i mille giovani e famelici clienti di una biblioteca scolastica, 
poi... 
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Chi, Cosa, Come, Quando.. 


A destra, 
il compact disk 
per auto CDX-l 
della Pioneer. 


Più portatile 
di così! 

HP-71B, dalla Hewlett-Pac¬ 
kard, è poco più grande di una 
calcolatrice tascabile ed è bravo 
quasi quanto un personal compu¬ 
ter. Sa infatti lavorare con il basic 
e ha una RAM di tutto rispetto. 
17,5 kbyte espandibili, con appo¬ 
siti moduli, fino a 33, 5. Oltre ai 
moduli di memoria, sono dispo¬ 
nibili anche un’interfaccia che 
permette il collegamento del- 
l'HP-71 con la grande famiglia 
HP-IL, un lettore di schede 
estraibile e sei pacchetti applica¬ 
tivi. 

11 visore a cristalli liquidi ha 
una finestra di lettura di 22 carat¬ 
teri , e può riprodurre maiuscole e 
minuscole; con i tasti cursore si 
possono far scorrere le righe, ot¬ 
tenendo una lettura completa. 

Il basic, in versione potenziata, 
fornisce più di 240 funzioni, e il 
sistema operativo ha la potenza 
di 64 kbyte; per ì problemi di cal¬ 
colo piu complessi c’è il prezioso 
modo C'ALC; tutti i tasti, inoltre, 
possono essere personalizzati in 
base alle esigenze funzionali. 

Il prezzo dell’HP-71B. esclu 
sa l’iva del 18%, è di 1 milione e 
252 mila lire. 


ter. Piu deH’arredamento e del 
macchinario per ufficio, infatti, 
protagomste del salone sono sta¬ 
te la telematica e le comunicazio¬ 
ni nell’organizzazione aziendale. 

È stato intenso e fruttuoso an¬ 
che il programma dei dibattiti: 
rapporti con le università e con le 
istituzioni, scambi con ì paesi del 
Mediterraneo, importanza della 
tecnologia informatica nella 
scuola, nel mondo dell'editoria, 
nella pubblica amministrazione, 
nel sistema bancario e nella ricer¬ 
ca medica sono alcuni dei titoli. 
Ai dibattiti hanno partecipato 
studiosi, industriali e responsabi¬ 
li politici. 

Compact disk 
on thè road 

L’ultimo rampollo della Pio¬ 
neer, un milione tondo tondo, ar¬ 
riva senza rivali sul mercato ita¬ 
liano. La novità non è da poco. 


da ci si potrà rinfrancare con una 
resa audio veramente perfetta 
per la musica preferita. 

Da abbinarsi ai car sterco della 
serie Component. CDX-l è 
composto da due unità: il lettore, 
facilmente installabile nel cru¬ 
scotto per le sue dimensioni DIN, 
e un'unità di controllo, da instal¬ 
larsi sotto il sedile o dietro il cru¬ 
scotto stesso. Per il controllo di 
volume e bilanciamento e dei 
bassi/alti separati si utilizzano i 
dispositivi del car stereo. 

Dopo le ultime modifiche ap¬ 
portate in seguito al collaudo sul¬ 
le accidentate strade del Belgio, 
queste le definitive caratteristi¬ 
che tecniche: risposta in frequen¬ 
za 5-20.000 Hz (± 1,0 dB) ; 
gamma dinamica 90 dB ; rapporto 
S/N 90 dB ; distorsione armonica 
0,005 %. Interessanti anche le 
funzioni: music scan, per ascolta¬ 
re i primi dieci secondi di ogni 
brano e rintracciarne così uno in 
particolare; music search. per 




l Ina fascierà tipo macchina per scrivere 
r- Interfaccia HP-II. 


Il BASIC 


<BASIC LRNGUAGE HP-71 


Quattro pone 


Memora permanente 


Alimentazione c 


batteria 


- Il moti») CAJLC 


Lettori di schede 


Visore a cristalli liquidi 


Qui sopra, 
il computer 
tascabile 
HP-71 B della 
Hewlett-Packard. 


Tecnorama ufficio 

Con una notevole affluenza di 
pubblico e un bilancio soddisfa¬ 
cente si è conclusa a Bari la prima 
edizione della fiera del compu- 


un compact disk per auto. E la 
differenza di qualità tra la musica 
prodotta da un compact disk e 
quella tradizionale si nota pro¬ 
prio e soprattutto in automobile: 
finalmente sull’assolata autostra- 


tornare all'inizio di un brano o 
saltare al successivo; track 
search, per passare direttamente 
a un brano specifico; track re- 
peat. per riascoltare, anche più 
volte, un brano; disc repeat. per 
riascoltare l’intero disco. 

CDX-l, che giunge in Italia 
dopo aver riscosso un buon suc¬ 
cesso sul mercato giapponese, 
dove pure è stato il primo com¬ 
pact disk per auto, sarà seguito, 
in aprile, anche dal fratellino 
CDX-P1 (1 milione e 200 mila 
lire ) ; questo sarà dotato di dispo¬ 
sitivi autonomi di controllo e sarà 
molto più versatile: potrà essere 
collegato, infatti, agli stereo di 
quasi ogni marca. 

È più facile 
con Casio 

L'eccellente qualità sonora e 
l’estrema facilità d'uso sono le 
due caratteristiche di spicco del 
sintetizzatore digitale C-Z—1000 
della Casio, distribuito in Italia | 
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dalla CGD messaggerie musicali 
(tei 50841) di Milano. 

CZ—1000, che incorpora un 
ottimo potenziale creativo, utiliz¬ 
za il sistema di generazione sono¬ 
ra esclusivo PÒ, per modificare 
la fase delle onde sinuose in modi 
diversi e generare i suoni; questo 
avviene attraverso trattamenti 
indipendenti di altezza, tonalità e 
volume, con effetti semplificatori 
notevolissimi per V utilizzatore. 

La variazione sonora consenti¬ 
ta da questo sintetizzatore è mol¬ 
to ampia e i suoni sono più pro¬ 
fondi; se è necessario è anche 
possibile predisporre fino a otto 
fasi, rendendo possibili modifi¬ 
che dell’espressione sonora an¬ 
che molto sottili. 

Sottili, leggere, 
trasparenti 

Due chicche per chi ama tener¬ 
si al passo con la vorticosa produ¬ 
zione giapponese di oggetti di 
precisione sempre più piccoli e 
impalpabili; la radio più leggera 
del mondo e la calcolatrice tra¬ 
sparente della Casio. 

La radio è grande come una 
carta di credito, pesa venti gram¬ 
mi ed è spessa meno di due milli¬ 
metri; riceve stazioni FM a banda 
larga. Viene naturalmente pro¬ 
dotta in diversi colori e si chiama 
RD- 10. 

La calcolatrice solare TH-10, 
sensibilissima (per il suo funzio¬ 
namento sono sufficienti 50 lux), 
è dotata di un pannello traspa¬ 
rente a tasti, che vengono attivati 
con un tocco leggero. Saranno in 
vendita in Italia a partire da apri¬ 
le, distribuite dalla Ditron (tei. 



A Palermo 
è nato il MIT 

Con un nome molto lungo 
(Centro Studi Magistero di Infor¬ 
matica e Telematica), è stato fi¬ 
nalmente creato a Palermo un 
istituto parauniversitario capace 
di colmare un vuoto formativo 
avvertito ormai da tempo in tutta 
la regione. 

Il personale formato dal MIT 
(sono richiesti due anni di fre¬ 
quenza) sarà in grado di gestire 
sistemi informativi di vasto respi¬ 
ro, per esempio nella pubblica 
amministrazione o nel settore 
bancario. 

Pur essendo il MIT un'associa¬ 
zione privata, la frequenza ai cor¬ 
si sarà gratuita: enti pubblici e 
aziende private, che saranno i fu¬ 
turi datori di lavoro del personale 
specializzato al Magistero di In¬ 
formatica e Telematica, garanti¬ 
scono infatti l'assegnazione di 
borse di studi. 

Per informazioni: MIT, piazza 
Verdi 20, 90138 Palermo, tei. 091 
325346. 

Portatile? 

No, tascabile 

È lo strumento ideale per fami¬ 
liarizzare con il linguaggio mac¬ 
china, poiché incorpora PAssem¬ 
bler, ma è dotato anche di molte 
altre funzioni: una versione po¬ 
tenziata del basic per uso scienti¬ 
fico, la banca dati, la funzione di 
memorizzazione di formule, e 
ancora conversioni, trasforma¬ 
zioni, permute... 

Il computer tascabile Casio 
FX-770P. quadrante a cristalli 
liquidi con leggibilità di 24 cifre, 
giungerà in primavera sul merca¬ 
to italiano, distribuito dalla Di¬ 
tron, viale Certosa 138, Milano, 
tei. 02 3087041. 




Il basic si impara 
in edicola 


È disponibile in tre versioni 
(per Commodore 64, per VIC 20 
e per Spectrum), costa otto mila 
lire a fascicolo (venti fascicoli in 
tutto) ed è in edicola ogni quindi¬ 
ci giorni. 

VIDEO BASIC è un corso per 
imparare a utilizzare il computer 
da soli; o. meglio, facendosi aiu¬ 
tare dal computer stesso: funzio¬ 
na infatti per cassette, con meto¬ 
do interattivo. Comprende lezio¬ 
ni, esercizi e giochi. 

Games 


N. Williams, Progettazione di 
giochi d'avventura con Io ZX 
Spectrum, McGraw-Hill 1984, 
pagg. 215, L, 20. 000 


Lo scopo dichiarato di questo 
libro è quello di avvicinare di più i 
due universi separati composti 
dai programmatori e dagli utiliz¬ 
zatori di videogame: di aiutare 
cioè i giocatori a diventare buoni 
programmatori e i programmato- 
ri a realizzare giochi migliori. 

Per imparare a creare nuovi 
giochi è sufficiente, con questo 
libro, conoscere i fondamenti del 
basic, anche da principianti. An¬ 
che se il filone principale è quello 
dei giochi di avventura, e avven¬ 
turosi sono i game che il libro 
insegna a costruire, vengono pre¬ 
sentati anche i principi generali 
per la progettazione di ogni tipo 
di gioco. 

Nel libro vengono affrontati 
l’elaborazione di comandi verba¬ 
li. la costruzione di mappe, l'in¬ 
venzione di enigmi, la definizio¬ 
ne della grafica, la creazione di 
programmi intelligenti, di perso¬ 
naggi e mostri mutevoli e di routi¬ 
ne di combattimento, il controllo 
dei movimenti e infine tutte le 
idee particolari che servono per 
un’avventura. 
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GAMES 


Ora ti faccio 
un mix 


A.A.A. Ad abili deejey offresi 
una nuova gamma di effetti speciali, 
ideali per il missaggio, 
da inventare con il VIC e 
registrare sull'hi—fi. 

A.A.A. A fantasiosi programmatori 
offronsi nuovi rumori 
e musichette inedite per vivacizzare 
i loro videogames. 



C he rumore fanno un’astronave 
colpita dal laser, uno sceriffo 
che spara, un pianeta che esplode, 
un orso colpito da una freccia? 

Indovinare il rumore giusto, la 
colonna sonora che "funziona" è 
fondamentale per la buona riuscita 
di ogni nuovo (e vecchio) videoga¬ 
me; un programma che, come VIC 
SYNTHETÌZER, sappia sfruttare 
al massimo le potenzialità sonore 
del VIC, è una vera benedizione per 
ogni programmatore di game. 

Non solo. Anche i disk jockey, 
che di effetti speciali per videogio¬ 
chi magari non si interessano, trove¬ 
ranno in questo programma un uti¬ 
lissimo collaboratore nella realizza¬ 
zione di sofisticati mixage. La "voce" 
che esegue gli effetti speciali si esibi¬ 
sce infatti in varie tonalità; alta, me¬ 
dia, bassa, rumore; e il vostro VIC 
gorgheggia, sale, scende, fa la sire¬ 
na, spara, tuona, gorgoglia e rim¬ 


bomba, obbedendo docilmente ai 
quattro tasti funzione e ai due tasti 
cursori (su e giù). 

Come si usa 

Frequenza iniziale, frequenza fi¬ 
nale, step e decay sono naturalmen¬ 
te parametri variabili, e per modifi¬ 
carli si utilizzano i tasti funzione, 
utilizzando le semplici istruzioni che 
compaiono a tutto video quando, 
caricato il programmaci dà il RUN ; 
con i tasti da 1 a 4 si cambia la voce. 

Premendo il tasto R tutte le varia¬ 
bili vengono resettate, a eccezione 
però dell'orologio: nel caso si utiliz¬ 
zi il programma per creare effetti 
speciali da registrare, infatti, l'ele¬ 
mento tempo diviene importante. 
Anzi, converrà addirittura lanciare 
il programma nello stesso istante in 
cui prende avvio la registrazione, 
per sincronizzare l’orologio del Vie; 


per controllare, poi, quanti minuti 
sono trascorsi dal momento in cui è 
stato lanciato il programma, basta 
adoperare il tasto T. 

Premendo uno dei due tasti cur¬ 
sore mentre il computer sta creando 
un effetto, si otterrà l’immediata 
esecuzione del nuovo comando, 
mentre premendo uno qualsiasi de¬ 
gli altri tasti si otterrà l'interruzione 
dell’effetto in corso. Grazie all'au- 
torepeat, è sufficiente tenere co¬ 
stantemente premuto uno dei tasti 
funzione per ottenere una rapida 
variazione dei valori del parametro 
corrispondente. 

Riga per riga 

Ecco le principali righe del pro¬ 
gramma. nel quale sono stati utiliz¬ 
zati dei GOTO anziché dei GOSUB 
per rendere più agile e veloce l’ese¬ 
cuzione. 
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110 Estende l'autorepeat a tutti i 
tasti e definisce margine e sfondo 

120-130 Definiscono i valori inizia- 
li delle variabili _ 

140-280 Predispongono la pagina 
video con tutte le istruzioni per l’uso 
del programma _ 

290 Calcola la variabile D (durata 
dell'effetto in centesimi di secondo) 
e limita la lunghezza delle variabili 
H (step) e Z (step decay)_ 

300—380 Posizionano il cursore e 
stampano le variabili_ 

390 Attende che venga premuto un 
tasto 

400-610 Riconoscono quale tasto è 
stalo premuto ed eseguono il relati¬ 
vo comando, tranne nel caso dei ta¬ 
sti funzione, quando l'aggiorna¬ 
mento delle variabili avviene alle ri- 
ghe 800-870_ 

540-590 Controllano che le variabi- 
li non assumano valori illeciti 

620—660 Creano l’effetto "ascen¬ 
dente" 

670-710 Creano l’effetto "discen¬ 
dente^_ 

720—760 Cancellano la parte in alto 
a destra dello schermo e stampano 
(per un secondo circa) il numero dei 
minuti trascorsi dall’inizio del pro¬ 
gramma__ 

770 Rimanda alla linea 140 per ri¬ 
stampare la pagina video. 


Listato 


100 REMVIC SYNTHETIZER 

101 REM BY MICHELE CfiPlIRSG 

102 REM VI Fi MOLI ERE 1 

103 REM THVERNELLE <PCO 

104 REM TEL 075/832397 

110 POKE650,123 POKE36879,205 

120 9=36877 V=S+1 V$=" RUMORE "TI $="000000 11 

130 1 = 128 F *254 P=.1 :SB=.1 

140 PRIMT'TM" 

145 PRINT" flaVIC SYNTHETIZER" 

156 PRINT"lINIZIO BflCflV" ; REM6 
160 PRINT"FINE" 

170 PRINT"DURRTR STEP" REM5 
180 PRINT"VOCE" 

190 PRINT "fan" F0RW=1T022 PRINT"*" ; : NEXT 
200 PRINT"S EFFETTI:" REM8 


PRINT"URSR RIGHT=DISCENDENTE' 
NEXT 


210 print m 3:rsr down =rscendente' 

220 PRINT" TTS" FQRW=1T022 PRINT " # ' 

230 PRINT"! COMANDE" 

240 PRINT"«'FI" STEP + 'F2'STEP 
250 PRINT"'F3'INIZ. + 'F2'INIZ.-" 

260 PRINT"'FS' FINE + 'FZ'FINE -" 

270 PRINT"'F7 DECRV + '’FS'DECRV-" 

280 PRINT"VOCI 1 RLTR,2 MEDIR 
285 PRINT"ST=TIME,R=RESETT' 

290 H=INT<P*10V10 D=INT<(F-I)/P*.72)+INT<10/<SD*3.3>> : Z=INT<SD#10)/10 
300 PR I NT " ÌSI>!!!Ì!!tÌi!!i!!!| T REM4 

310 PRINT"S€bJ!!!!!I" I "l!!!!l"Z , 

( continua) 


BfiSSR/4 RUMORE" 
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Ora ti faccio un mix 


320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 


500 

510 

520 

530 

540 

550 

560 

570 

575 

580 

590 

595 

600 

605 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

800 

810 

820 

830 

840 

850 

860 

870 


PRINT"I»Ì»M"F 

PRINT"»••»•»! H" REM5 

PRINTIMMU n " REM4 

PRI NT "IHÌÌMMMMMH H REM4 

PRINT"»»»»ÌI"D m «MW"H 

PRINT"IM*ÌI TREM8 

PRINT"I»*»H"V$ 

GETfl$ IFfl$=""THEN390 
IFfl$="W"THEN620 

IFRSC < fl$>< 141 RNDRSC <fl$)> 131 THEHONFlSC< fi$ )-132GOT0800 / 810 ^ 820/8 j0j 

840/850/860/870 

IFfi$="1“THEHS=36876 V**"HLTfl" 

IFR$="2"THENS=36875 V$= "MEIiIR** 

IFR$= '■ 3 " THENS-36874 V$= " BflSSR" 

IFR$= "4"THENS=36S77 VM"RUMORE" 

1FI<128THEH1=128 

IFF>255THEHF=255 

IFPC.1THEHP=.1 

IF t>*FTHEN1 = 1-1 

IF3DC.1THENSD=.1 

1FF<=ITHENF=F+1 

IFP>=(F-I>/2THENF-<F-I>/2 

IFSD>1THENSD=1 
IF Rf="T"THEH720 
IFfl$="R"THEN120 

G0TQ290 ,, 

POKEV>10 FGRK=ITGFSTEPP POKES/K 
GETR$ IFft$0" "THEN650 

IFR$="M"QRR$=" «" THENPOKES/0 GOT0400 

F ORU=10TO0STEP-Z : POKEV,U NEXT■POKES/0 GUT039U 

POKEV / 10 FORK=F TOISTEP-P : POKES.-K 

GETRf IFR$<>""THEN700 

IFfl#="W"ORfl*=”M"THENPOKES/0 GOTO400 
FORU=10TO0STEP-Z POKEV/U NEXT POKES,0 GOTO390 
PRI NT " **»»*»**•»•! " ' 1 

PRINT")»»**»*I>MI " 

PRINT'"T***MiMM*ÌÌETlME" PRINT n*»******! 1 * 

.1 REM5 


II" fi I D'T T IT .■ 3 / 2 ) 


PR I NT " 

FORX=ITO1000 NEXT 
GOTO140 

P=P+.l GOTO540 
1 = 1 + 1 GOT 0540 
F=F+1 GOTO540 
SD=SD+.1 GOTO540 
P=P-.1 G0T0540 
1=1-1 GOTO540 
F=F-1 GOT0540 
SD=SIi-. 1 GOTO540 


RERDV. 


E per interfacciare? 

Una volta digitato il programma, 
conviene senza dubbio interfacciare 
il computer con un amplificatore 
hi-fi, per ottenere la massima fe¬ 
deltà nella riproduzione degli effetti 
sonori del VIC. Seguendo questi 
semplici consigli scoprirete che la 
realizzazione dell'interfaccia è piut¬ 
tosto semplice. 

Uno dei punti in cui il segnale di 
bassa frequenza è più facilmente 
prelevabile si trova all’interno del 
modulatore T.V.: proviene dal pin 3 
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della porta Audio—Video del VIC 
ed è prelevabile all interno del mo¬ 
dulatore nello stesso punto in cui c’è 
una saldatura tra il circuito stampa¬ 
to e un filo giallo (proveniente dalla 
porta Audio—Video del VIC). 

Basta praticare un piccolo foro 
nel contenitore metallico, fissarvi 
una presa mono (Jack, Punto Linea. 
Coassiale) e, con uno spezzone di 
filo, collegare i due terminali rispet¬ 
tivamente al circuito stampato (nel¬ 
lo stesso punto in cui è saldato il filo 
giallo) e alla massa del contenitore 
metallico. Michele Capurso 
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Apple II*/'e 

ESPERIMENTI 



Accendi di qua, 
spegni di là, 
muovi in su 
e porta giù... 
Questo Apple non 
è solo un computer, 
ma con un po' 
d'inventiva può 
trasformarsi in... 



Applimede 

Pitagorico 


I l connettore di I/O giochi del¬ 
l'Apple II è la presa nella quale 
vengono inserite le paddle. Nel //e, 
le paddle hanno una presa esterna, 
ma, se alzate il coperchio della mac¬ 
china, vedrete che questa presa 
esterna è collegata al connettore di 
I/O, che si trova nello stesso punto 
in cui si trova nel II: nell'angolo po¬ 
steriore destro della scheda princi¬ 
pale vista dalla tastiera. Pur essendo 
definito come connettore giochi, 
può essere utilizzato anche per di¬ 
verse altre applicazioni che non sia¬ 
no una semplice rilevazione del va¬ 
lore di input delle paddle. 

Nella figura 1 è riportata la piedi- 
natura del connettore I/O giochi. Si 
noti che il piedino 1 si trova sulla 


parte anteriore destra del connetto¬ 
re I/O giochi guardando dalla parte 
della tastiera dell'Apple II 

Quando le paddle sono collegate 
alla presa, vengono utilizzati soltan¬ 
to i piedini GCO, GC1, PBO, PB1. 
+ 5v e Gnd. Restano inutilizzati vari 
altri piedini, compreso un ingresso 
pulsante, due ingressi per controllo 
giochi e quattro porte d'uscita a un 
hit chiamate "annunciator output". 

In questo articolo descriveremo 
come si possono utilizzare le quattro 
porte di uscita per pilotare dispositi¬ 
vi esterni interfacciati con l’Apple II 
tramite il connettore I/O giochi. 

Lo scopo originario della presen¬ 
za di queste porte di uscita nell'Ap¬ 
ple II era apparentemente quello di 
permettere all'utente di pilotare 
una serie di lampade di controllo. 
Tuttavia i segnali di uscita sono nor¬ 
mali TTL, quindi possono essere 
usati anche per pilotare relè, alto- 
parlanti e svariati altri dispositivi. 
Progettiamo ora un circuito per il 
pilotaggio di LED a sette segmenti 
in modo da poter visualizzare e rico¬ 
noscere le cifre da 0 A 9. 

Materiale occorrente 


Per eseguire questo esperimento, 
i componenti richiesti sono un LED 
a sette segmenti ad anodo comune 
FND507, un integrato 7447 decodi¬ 
ficatore-pilota BCD a sette seg¬ 
menti e sette resistenze da 330 ohm 


1/4 di watt. Occorreranno anche 
una basetta forata (può servire otti¬ 
mamente allo scopo una IDEABA- 
SE piccola), alcuni fili e un cavetto 
di prolunga con zoccolo DIP a 16 
contatti II cavetto è impiegato per 
collegare il connettore I/O dei gio¬ 
chi dell'Apple II alla basetta in mo¬ 
do che si possa disporre dello spazio 
per cablare il circuito. 

Dopo esservi procurati tutti i 
componenti, inserite nella basetta 
l'integrato 7447, il LED a sette seg- 


+ 5v 

1 

16 

NC 

PBO 

2 

15 

ANO 

PB1 

3 

14 

ANI 

PB2 

4 

13 

AN2 

STROBE 

5 

12 

AN3 

GCO 

6 

11 

GC3 

GC2 

7 

10 

GC1 

Gnd 

3 

9 

NC 


dove: PB = input pulsante 
GC = input padelle 
AN = annunciator output 
NC = non collegato 
Gnd = massa 
+ 5v = alimentazione +5v 

Figura 1 . Disposizione dei piedini 
del connettore I/O giochi. 

Il piedino N. I è nella parte 
anteriore destra del connettore 
visto dalla tastiera dell'Apple. 
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Figura 2. Schema di 
montaggio del circuito. 


ANO e' il piedino 15 del connettore I/O giochi 

ANI e' il piedino 14 del connettore I/O giochi 

AN2 e' il piedino 13 del connettore I/O giochi 

AN3 e' il piedino 12 del connettore I/O giochi 

+5v e 1 il piedino 1 del connettore I/O giochi 

Gnd e’ il piedino 8 del connettore I/O giochi 


menti e le sette resistenze seguendo 
lo schema elettrico di figura 2. 

Saldate quindi alla basetta i singo¬ 
li fili provenienti dal cavetto di pro¬ 
lunga in modo che i piedini utilizzati 
dello zoccolo I/O dei giochi corri¬ 
spondano ai relativi piedini del 
7447. 

Principi 

di funzionamento 

Il decodificatore-pilota è un di¬ 
spositivo che può ricevere quattro 
input a livello TTL e manipolarli per 
generare sette output acceso/spen¬ 
to, uno dei quali è necessario per 
ciascuno dei segmenti dell' 
FND507 La sequenza dei sette out¬ 
put acceso/spento dipende dallo 
schema di collegamento dei quattro 
input TTL, e dato che possono es¬ 
serci sedici diverse combinazioni di 


input si possono generare fino a se¬ 
dici diverse combinazioni di output, 
il che è più che sufficiente per gesti¬ 
re la visualizzazione di dieci cifre 
differenti. 

Nel nostro caso ai quattro input 
TTL per il decodificatore—pilota 


provvedono le quattro porte di usci¬ 
ta provenienti dal connettore I/O 
giochi. Le resistenze da 330 ohm 
vengono utilizzate per limitare la 
corrente attraverso i segmenti del 
LED in modo che non brucino 
quando il circuito viene collegato. 

Controllo output 

Prima di provare ad accendere e 
spegnere i segmenti dell’ FND507 
vediamo come si possono attivare o 
disattivare le quattro uscite in un 
programma in Basic e in linguaggio 
macchina. Le quattro porte di uscita 
dell'Apple 11 sono numerate da 0 a 3 
e ognuna è associata con una coppia 
di locazioni di memoria. 

Queste locazioni di memoria pos¬ 
sono essere descritte come "inter¬ 
ruttori soft". in quanto un riferimen¬ 
to alla prima locazione attiverà l'u¬ 
scita e un riferimento alla seconda 
locazione della coppia la disatti¬ 
verà. 

Quando un'uscita è nella condi¬ 
zione OFF (disattivazione) la ten¬ 
sione al suo piedino del connettore 
I/O giochi diventa bassa (quasi 0 
volt) e quando è nella condizione 
QN (attivazione) la tensione diven¬ 
ta alta (quasi +5 volt). 

Le locazioni di memoria necessa¬ 
rie per impostare le condizioni di 
ciascuna delle uscite sono riportate 
nella figura 3. In linguaggio Basic, 
per mettere AN#N (N=0,1,2,3) 
nella condizione OFF si usa il co¬ 
mando POKE — 16296 +2*N,0. Per 
mettere AN#N nella condizione 
ON si usa il comando POKE 
-16295+2*N,0. 

Per rendere ancora più semplici le 
cose si può aggiungere al program¬ 
ma un FI.AG, diciamo F. dove F= 1 
se si vuole la condizione ON e F=0 


» AN N. 

CONDIZIONE 

Decimale 

Esadecimale 

0 

spento 

-16296 

$C058 


acceso 

-16295 

$C059 

1 

spento 

-16294 

SCO 5 A 


acceso 

-16293 

$C05B 

2 

spento 

-16292 

SC05C 


acceso 

-16291 

SC05D 

T. 

spento 

-16290 

SC05E 


acceso 

-16289 

SC05F 

Figura 3 

. Locazioni di memoria 

corrispondenti alle quattro uscite 

del connettore. 
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Applimede Pitagorico 


se si vuole la condizione OFF, di 
modo che il comando POKE 
- 16296 + 2*N + F,0 imposterà la 
condizione desiderata nelle porte di 
uscita desiderate. 

Se si vuole ottenere la stessa cosa 
in linguaggio macchina del 6502 si 
usa nel proprio editor/assembler il 
seguente codice sorgente: 

Tavola logica 

Anche se adesso sappiamo come 
"accendere" e "spegnere" le quattro 
porte di uscita, occorre sapere quali 
combinazioni di "acceso" e "spento" 
siano necessarc per visualizzare sull' 
FND507 le cifre da 0 a 9. Per ottene¬ 
re queste informazioni ci occorre la 
cosiddetta "tavola logica". Per il ca¬ 
blaggio usato in questo circuito si 
applica, in particolare, la seguente 
tavola logica: 


NUMERO 

AN3 

AN2 

ANI 

ANO 

ZERO 

0 

0 

0 

0 

UNO 

0 

0 

0 

j. 

DUE 

0 

0 

1 

Ó 

TRE 

0 

0 

i 

: 

QUATTRO 

0 

1 

0 

« 

u 

CINQUE 

0 

1 

0 

1 

SEI 

0 

1 

1 

0 

SETTE 

o 

1 

1 

1 

OTTO 

1 

0 

0 

0 

NOVE 

1 

0 

0 

1 


Listato 1 

Listato 2 

100 RB1 ACCENSIONE CASUALE DISP 

500 REM DISPLAY DIGITALE A SCEL 

LAY 

TA 

110 TEXT : HOME : PR1NT "DISPLAY 

510 TEXT : HOME : PRINT "DISPLAY 

DIGITALE AD ANODO COMUNE 5 

DIGITALE AD ANODO COMUNE" 

120 VTAB 5: CALL - 958 

520 VTAB 5: CALL - 958: INPUT " 

130 Y = INT (9 * RND <1» 

BATTI UN NUMERO (0-9): ":Y: PRINT 

140 PRINT •NUMERO" ;Y: PR1NT 

: IF Y < 0 OR Y > 9 THEN 520 

150 FOR I = 3 TO 0 STEP - 1 


160 F = INT <Y / (2 * !)> 

530 FOR I = 3 T0 0 STEP - IsF = 

170 POKE - 16296 + 2 * I + F.0 

INT (Y / <2 ‘ !)>: POKE - 

ISO PRINT ’AWUNCJATOR N.";I;":’ 

16296 ♦ 2 **I ♦ F,0 :Y = Y - 

; : IF F = 1 THEN PRINT "ACC 

(2 * I) * F 

ESC : GOTO 200 

540 PRINT "ANNUNCIATQR N.";I{": 

199 PRINT "SPENTO" 

• ; : IF F = 1 THEN PRINT “AC 

200 Y = Y - (2 4 1) * F 

CESO": GOTO 560 

210 NEXT I 

550 PRINT ’ SPENTO" 

220 FOR 2 = 1 T0 1000: NEXT I 

560 NEXT I 

230 GOTO 120 

570 PRINT : PRINT "LN TASTO PER 

240 END 

CONTINUARE: GET A$: PRINT 


A$: GOTO 520 

Versione per Assembler 

LDA ANNUN {carica AN N. 

ASL A {itoliipi tea per 2 

ORA STATE {aggiunge 1 se'on' o 0 se 'off' 

TAX 


STA $C058,X;attiuà l'uscita 

RTS 


STATE DS I ;1 se 'on' / 0 se 'off' 

ANNUN OS 1 {uscita n.(0,1,2,3) 


In questa tavola, uno 0 indica che 
AN è OFF e un 1 indica che AN è 
ON. 

Si può vedere che in questa confi¬ 
gurazione le condizioni delle quat¬ 
tro porte di uscita per una data cifra 


seguono lo schema binario dei bit 
della cifra. 

Per esempio la cifra 7 in binario è 
Olii c la corrispondente sequenza 
delle uscite AN è esattamente la 
stessa. 


Per esempio. •• 

Per visualizzare la cifra 4, consul¬ 
tate la tavola logica, dalla quale ri¬ 
sulta che si devono spegnere AN3, 
ANI e ANO e accendere AN2. 

I POKE filativi per questa scelta 
sono: 

POKE -16296,0 (spegne ANO) 

POKE -16294,0 (spegr.e ANI) 

POKE -16291,0 (accende AN2) 

POKE -16290,0 (spegne AN3) 

I listati dimostrativi che accompa¬ 
gnano l'articolo sono ulteriori esem¬ 
pi delle tecniche di programmazio¬ 
ne richieste per visualizzare specifi¬ 
che cifre. Il listato 1 genera ripetuta- 
mente la visualizzazione di una cifra 
casuale sull'FND507. Il listato 2 può 
essere usato per visualizzare qua¬ 
lunque cifra che venga specificata. 


FND 507 



1 segmento e 

2 segmento d 

3 catodo corrione 

4 segmento c 

5 punto decimale 

6 segmento b 

7 segmento a 

6 catodo comune 



SN 7447 


9 segmento f 
10 segmento g 



Vcc 

f 

g 

a 

b 

c 

d 


Figura 4. Piedinatura dell'FND 507 e dell'SN 7447. 
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Plotter 
per C64 
e Vie 20 



Duelli, 
tranelli e 
indovinelli 


Qual è il modo migliore per nascondere 
una parola? Un'altra parola. 

Qual è il modo migliore per nascondere 
una forma? Altre forme. 

Codici cifrati e puzzle geometrici 

verranno prodotti in un baleno 

dal più abile artefice di rompicapo: il computer. 

Per voi, buon divertimento; ma non solo... 


Listato 1 

1 REM SCRITTURA IN CODICE 

2 : 

3 REM PER COMMODORE 64 OPPURE UIC 20 

4 : 

5 REM CON PLOTTER COMMODORE 1520 

6 : 

7 : 

20 OPEN 2,6,2 
30 OPEN 3,6,3 
40 OPEN 4,6 
50 OPEN 6,6,6 
60 PRINT#2,0:PRINT#6,1 

70 PRINT*4,SPCC6rCHIAUE PER LA DECRITTA 
ZIONE:•:PRINT#4 
80 DIMTC26 ] 

90 FORI=1T026 

100 PRINT#6,0:PRINT#4,SPCC18 DCHR$C64+ID; 

110 X = INTCRNDC03*26 3+1 

120 IFTCX DO0THEN110 

130 TCX 3=1+64 

140 PRINT#4, " ="CHRiC64+XD 

150 NEXT 

160 PRINT#6,l:PRINT#4:PRINT#4,"0RA STRAP 
PA IL FOGLIO E BATTI LA FRASE" 

170 PRINT#4,"DA CODIFICARE" 

180 PRINT#6,0:PRINT#2,3:PRINT#4:PRINT#4: 

PRINT#4:PRINT#4:PRINT#4 

130 GETA*:IFA*=""THEN190 

200 X=ASCCAi3-64 

210 IFX<1.0RX>26THENPRINTAi; :GOTO190 
220 PRINT#4,CHRÌCTCX33;:GOTO190 


N on occorre avere quindici anni 
e amare il professore di chimica 
per possedere dei segreti: tutti ne 
hanno, di natura professionale o 
maniacale, piccoli o grandi, da con¬ 
fidare solo a persone fidate o da por¬ 
tarsi nella tomba. Già la parola chia¬ 
ve per accedere a un file protetto è 
un segreto da proteggere a sua vol¬ 
ta... ma come? È semplice: con un 
cifrario gestito dal personal compu¬ 
ter. impossibile da decifrare. 

Se questo primo programma si 
può usare agevolmente anche per 
giocare, il secondo è addirittura na¬ 
to con questo obiettivo, per creare 
col computer uno dei passatempi 
più vecchi del mondo: il puzzle. 


Scrittura in codice 


Fin dai tempi più remoti, fin da 
quando è stata inventata la scrittu¬ 
ra, è esistito il problema di comuni¬ 
care messaggi segreti o comunque 
non facilmente leggibili da chiun¬ 
que. Giulio Cesare, per esempio, 
quando inviava dei dispacci ai suoi 
generali sparsi nei vari territori di 
guerra, usava un metodo rudimen¬ 
tale di cifratura, che consisteva nel 
sostituire a ogni A una D, a ogni B 
una E e così via, slittando in avanti 
di tre posti ogni lettera dell'alfa¬ 
beto . 

Con il tempo i metodi di cifratura 
si sono sempre più raffinati, poiché 
l’acume di chi li inventava veniva 
spesso beffato da quello di chi riu¬ 
sciva a decifrarli. Edgar Allan Poe, 
grande letterato ma anche autore¬ 
vole esperto di crittografia, scrisse a 
proposito dei codici segreti: «E ve¬ 
ramente da porre in dubbio che l'in¬ 
telligenza umana possa creare un 
enigma di questa specie che poi l'in- 
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Duelli, tranelli e... indovinelli 


gegno umano con l'applicazione ne¬ 
cessaria non riesca a spiegare». 

Con l'avvento dei calcolatori si è 
entrati in una nuova era della critto¬ 
grafia (dal greco Kriptos : nascosto, 
e graphos: scrittura). Queste mac¬ 
chine sono infatti molto veloci nel 
codificare, ma anche nel decrittare. 
D'altra parte, si sa, i computer lavo¬ 
rano praticamente solo con dei codi¬ 
ci: basti pensare al codice ASCII per 
il quale una A è uguale a 65, la B è 
66, eccetera. Se quindi di messaggi 
cifrati non se ne intendono loro... 
Vere e proprie crittografie (soprat¬ 
tutto per i neofiti!) sono anche i li¬ 
stati dei programmi. 

Questo programma, dunque, tra¬ 
sformerà il vostro Vie 20 (o C64) in 
un esperto codificatore e la printer 
plotter 1520 stamperà i messaggi più 
riservati in modo tale da renderli 
assolutamente incomprensibili a oc¬ 
chi estranei Per prima cosa, infatti, 
viene stampata tale chiave: dopo 
aver dato il RUN il plotter incolon¬ 
na le ventisei lettere alfabetiche e 
per ognuna scrive la lettera che so¬ 
stituisce (figura 1). Questa sostitu¬ 
zione (grazie alle righe da 1 IO a 130) 
avviene biunivocamente per tutte le 
26 lettere, il cui abbinamento è ca¬ 
suale, quindi il numero dei diversi 
codici possibili è grandissimo: 26!. 
cioè 1x2x3...x25x26. 

A questo punto un messaggio vi 
avverte di strappare il foglio. Non e 


Figura 1 

Chiave per la decrittazione: 


A=F 

J =N 

CL 

II 

OQ 

(j 

ii 

C=E 

L=A 

II 

a 

M=T 

E=G 

N=W 

F=Q 

0 = 1 

G =Z 

P=U 

H=M 

Q=S 

I =L 

R=U 


S =B 
T=.X 
U=0 
U=D 
W =Y 
X=H 
Y=R 
Z=J 


ora strappa il foglio e batti 
la frase da codificare 


Figura 2 

RQIBGZZMFBQTGQMNNG'QRQBZUDGNIBGEUBUNUFBUZ 
Q J UKZUGK J MDMI i_UGNMRGGKGAGQZGUMNNQKM IM J UB 
UKDUBUNGUOMDGBUEUII lGQXOQKZMGRJ MKDMNG'UMZ 
BUuJÌaJUDGBU I l JNIUKDUGKRGKUQBUZZQDQRRUNIBGZ 
ZOBUGUBQZGI LUPI IOKUGTMB JGDQGFUBMFRG'TGIGDU 
RRQRZMUF &ZZM Vedere , a soluzione 

a pagina 75. 


però necessario imparare tutto a 
memoria e poi distruggere, ingoian¬ 
dola, la chiave, come nei peggiori 
film di spionaggio: consegnerete il 
foglio a chi di dovere, o lo tratterre¬ 
te voi per essere sempre in grado di 
decifrare quanto avrete scritto. 

Ora non vi resta che digitare sulla 
tastiera il testo da crittografare; let¬ 
tera dopo lettera il testo cifrato ver¬ 
rà stampato su carta, eliminando 


automaticamente gli spazi vuoti tra 
le parole per non fornire aiuti all'i¬ 
potetico decrittatore. Le ultime ri¬ 
ghe della figura 1 mostrano un 
esempio: con la chiave sovrastante è 
facile risalire al messaggio. Provate 
però a decrittare senza chiave il te¬ 
sto della figura 2... ma non dispera¬ 
tevi per il vostro sicuro insuccesso: il 
solo modo per scoprire la soluzione 
è di guardare a pag. 75 



Figura 3 —...._ 

_ I 

“ ^ —- -I 

ora strappa il foglio e taglia seguendo le linee tratteggiate, poi mischia i sei 
pezzi e cerca di ricostruire il puzzle. 


Quadrangolo 


LlKPJCBLYUICQKYOmCOJKUUOKCKUHCBYURLUCIB 
YUEYLHHLUOKYOMMUEYLfìOLKUJ 01BYOJNCYBI Unric 
YKUHHUUUYC 


ALCUNE PAROLE SCRITTE IN CODICE COME 
PROUA DEL PROGRAMMA DI CRITTOGRAFIA CON 
IL PRINTER PLOTTER COMMODORE 


Georges Perec, nel romanzo Lei 
vita: istruzioni per l'uso, mostra 
quanto la narrazione non sia altro 
che un raffinato puzzle che il letto¬ 
re. capitolo dopo capitolo, deve ri¬ 
costruire. Nella prefazione il puzzle 
è così definito: «malgrado le appa¬ 
renze. non si tratta di un gioco soli¬ 
tario: ogni gesto che compie l'attore 
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del puzzle, il suo autore lo ha com¬ 
piuto prima di lui...». 

Il vostro printer plotter 1520 può 
essere con facilità l’autore di un 
puzzle. Forse gli esperti in questo 
gioco di pazienza arricceranno il na¬ 
so sapendo che si tratta di un rompi¬ 
capo fatto “a macchina”, e compo¬ 
sto di soli sei pezzi. Facilissimo dun¬ 
que da ricostruire? Non proprio; 
ognuno di questi pezzi ha forma 
geometrica: un quadrangolo (o qua¬ 
drilatero). E ancora un quadrango¬ 
lo è la forma del puzzle da ricompor¬ 
re, che però non presenta alcuna 
immagine. 

Come potete vedere nell’esempio 
(figura 3), ognuno dei lati del puzzle 
è tagliato in parti tra loro uguali ed è 
perciò facile cadere nel tranello di 
avvicinare i pezzi nel modo sbaglia¬ 
to. Un’altra piccola “cattiveria” di 
questo rompicapo sta nel fatto che 
non potrete verificare la soluzione 
(se prima non ne avrete fatto una 
fotocopia... ma bara chi la osserva 
durante il gioco!), poiché rilancian¬ 
do il programma si produrrà un 
puzzle diverso: come sempre, ogni 
lasciato è perso... 

Dato il Run il computer sceglie 
quattro coppie di coordinate, a caso 
ma entro limiti prestabiliti (se volete 
potete cambiarli alterando così le 
dimensioni del puzzle), e collega 
quattro punti così definiti con linee 
tratteggiate, costruendo il quadran¬ 
golo. Lo suddivide poi in sei parti 
sempre con linee tratteggiate e ca¬ 
suali (figura 3). A questo punto toc¬ 
ca a voi. Strappate il foglio (even¬ 
tualmente incollatelo su un carton¬ 
cino) e tagliate seguendo le linee; 
poi mischiate i sei pezzi e cercate di 
ricomporre il quadrilatero di par¬ 
tenza. Il listato è meno breve del 
precedente, e anche un po’ più noio¬ 
so da ricopiare; la maggior parte 
delle linee può essere però digitata 
per ricalco, cioè cambiando il nume¬ 
ro della riga, modificando le varia¬ 
bili e premendo infine RETURN. 
Dopo l'apertura dei vari file (righe 
10-70) si sceglie il colore del dise¬ 
gno. il tipo di tratteggio e il set mi¬ 
nuscolo dei caratteri. Queste le 
principali righe: 

90: dimensionamento delle coordi¬ 
nate dei dodici punti casuali delle 
righe 100-352 
520-700: stampa disegno 
720-fine: stampa testo e chiusura 

Aldo Spinelli 


Listato 2 


1 

REM 

QUODRONGOLO 

z 

3 

REM 

GIOCO/PUZZLE 

5 

REM 

PER CBN 64 OPPURE UIC 20 

7 

REM 

CON PLOTTER CONNODORE 1520 


8 : 

10 OPEN 1,6,1 
20 0PEN2,6,2 
30 OPEN3,6,3 
40 0PEN4 ,6 
50 0PEN5,6,5 
60 0PEN6 ,6,6 
70 0PEN7.6.7 

80 PRINT#2,2:PRINTtt5.4:PRINTtt6 
90 DINXC 12 3: DIMYC12 3 
100 XC13=INTCRNDC03*1003 
110 YC1 3=-INTCRNDC03*1503 
120 XC2 3=INTCRNDC0 3*100 3+379 
130 YC2 3=-INTCRNDC0 3*150 3 
140 XC33=INTCRNDC03*1003+379 
150 YC33=-INTCRNDC03*150 3-449 
160 XC4 3 = INTCRNDC0 3*100 3 
170 YC43=-INTCRNDC03*1503-449 
200 XC53=INTCXC13+l/2*CXC23-XC1333 
210 YC5 3=INTCYC13+l/2*CYC23-YC133 3 
220 XC63=INTCXC23+l/3*CXC33-XC2333 
230 YC63=INTCYC2 3+1/3*(Y C3 3-YC 2 3 3 3 
240 XC73=INTCXC2 3+2/3* CXC3 3-XC 2 3 3 3 
250 YC73=INTCYC2 3+2/3*CYC33-YC2 3 3 3 
260 XC8 3 = INTCXC4 3+l/2*CXC3 3-XC4 3 3 3 
270 YC83 = INTCYC4 3+1/2*CYC33-YC4 3 3 3 
280 XC9 3 = INTCXC13+2/3*CXC43-XC1333 
290 YC9 3=INTCYC13+2/3*CYC43-YC13 33 
300 XC10 3 = INTCXC13+1/3*CXC43-XC1333 
310 YC103=INTCYC13+1/3*CYC43-YC1333 
320 XC113=INTCRNDC03*2003+139 
322 IFXC113> =XC6 30RXC113<=XC103THEN320 
330 YC113=-INTCRNDC03*3003 
335 IFYC113>=YC53THEN330 
340 XC123 = INT CRNDC0 3*200 3+139 
342 IFXC12 3>=XC7 30RXC12 3<=XC9 3THEN340 
350 YC123=-INTCRNDC03*3003-300 
352 IFYC123> =YC1130RYC12 3<=YC8 3THEN350 
520 PRINTttl, M ,XC13.YC13 
530 PRINTttl. □ .XC23.YC23 
540 PRINTttl. D .XC33.YC33 
550 PRINTttl, □ .XC43.YC43 
560 PRINTttl. D ,XC13.YC13 
600 PRINTttl. N.XC53.YC53 
610 PRINTttl. D ,XC 113.YC11 3 
620 PRINTttl, D ,XC123,YC12 3 

630 PRINTttl, □ .XC83.YC83 

640 PRINTttl , N' .XC93.YC93 

650 PRINTttl , D .XC123.YC123 

660 PRINTttl, D .XC73.YC73 
670 PRINTttl, TT .XC63.YC63 
680 PRINTttl , D .XC11 3.YC11 3 
690 PRINTttl, D' .XC10 3.YC103 
700 PRINTttl . IT ,0,-620 
710 PRINT»2,1 :PRINTtt5 ,0 

720 PRINTtt4, ORO STROPPO IL FOGLIO E TOG 
LIO SEGUENDO 

730 PRINTtt4, LE LINEE TROTTEGGIOTE, POI 
NISCHIO I SEI 

740 PRINTtt4, PEZZI E CERCO DI RICOSTRUIR 
E IL PUZZLE. 

750 PRINTtt4:PRINTtt4:PRINTtt7 
800 CL0SE1:CLOSE2:CL0SE3:CL0SE4:CL0SE5:C 
L0SE6:CL0SE7 
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Pagina mancante (pubblicità) 




Spectrum 
48 K 


Cosa c # è 
dietro 
quel muro 



Ecco la versione 
aggiornata, 
corretta e 
soprattutto rifatta 
in chiave aliena 
del famoso 
videogioco del 
muro,della palla 
e del rimbalzo. 
Ma ora sarebbe 
piaciuto anche a 
Orwell e Orson 
Welles. 



R icordate il leggendario 
BREAK-OUT? Sì, proprio 
quello che ha spopolato nella prei¬ 
storia dei videogame. Be', l'ho riti¬ 
rato fuori e. trasformandone la gra¬ 
fica e alcuni non trascurabili parti¬ 
colari, ho pensato di riproporvelo. 
sicuro di un vostro apprezzamento. 
La trasformazione, che ne fa un 


gioco completamente nuovo e mol¬ 
to più moderno, consta nel fatto che 
non è piu il giocatore, armato di 
palla e racchetta, a dover distrugge¬ 
re il muro, ma un malvagio e infalli¬ 
bile alieno. 

Non preoccupatevi, non rimarre¬ 
te a guardare con le mani in mano, 
anzi, dovrete dimostrare la vostra 


Listato 1 

10 R E M ********************** 


20 REH ti * * 
30 REM **DEFENDER ** 
40 REM ** ** 
50 REM ** U. PRLIGTTG ** 
60 REM ** per ** 
70 REM ** _ _ ** 


0NICR1 


90 REM ** ** 
100 REM ** & ** 
110 REM ** ** 
120 REM ** COMPUTER ** 
130 REM ** ** 


140 REM ********************** 
150 
160 
170 


180 

190 

200 

1000 BGRDER 5: PRPER 6 INK 0: C 


1010 PRINT FLRSH 1,RT 2,8;" 0 E 
FENDER 

1020 PRINT RT 4,13;"ovvero : " 

1030 PRINT HT 6,1,"La vendetta d 


e i poveri ni a r 2 i a n i 
1040 PRINT INK 2, 

T 1, FLR5H 1, RT 12 

■ ■■■■■Ìli" 


PRPER 

,3, "■ 




BRIGH 


1050 print RT 18,2;"lascia acces 


o il registratore" 

1060 LORD "caratteri"CODE 
1070 POKE 23607,233 
1080 LORD "de fender" 

9990 5RUE "de fCRR" LINE 1 
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Cosa c'è dietro quel muro 

abilità “costruttoria". Infatti ogni 
qualvolta l'alieno distrugge un mat¬ 
tone, voi dovrete essere prontissimi 
a riparare il muro materializzando 
un altro mattone. 

Ovviamente dopo i primi 500 
punti le cose si complicano: a voi 


scoprire come. Inutile aggiungere 
che servono tattica e riflessi d'ac¬ 
ciaio. Ricordate inoltre che, per po¬ 
ter ritenere il vostro punteggio "de¬ 
cente”, dovrete raggiungere un nu¬ 
mero composto da una cilra seguita 
da almeno quattro zeri. 


Il programma 

Il programma è costituito da tre 
listati II primo è un semplice carica¬ 
tore. Il secondo è invece un pro¬ 
gramma che ridefinisce tutto il set di 
caratteri sostituendolo con uno dal- 


Listato 2 


20 PRINT AT 10.0," ATTENDI UN 
ATTIMO PER FAUORE 
30 FOR X=59904 TO 59904+76S 
40 READ V 
50 POKE X V 
60 NEXT X 
70 POKE £3607,233 
30 GO TO 1000 

100 DATA 0.0,0,0,0,0,0 , 0 , 3 , S , 3 , 

3 . £4.0.8,£4.0,36.103,0,0,0,0,0,3 
6,2,182,36,2,182,36,108,8,2,46,6 
8,42,6,103,24 _ 

110 DATA 2,66.196,«,lb,34,70,19 
2,0,16,40,38,42,118,138,126,8,24 
,48,0,0,0,0.0,4,12,16,16,16,&,20 
,12,16,40,20,4,4,4,8,45 
120 DATA 8,74,34,4,2,42, t 4,24,0 

, 8,3,2,110,8,24,0,0,0,0,0,0,4- , 12 
,24,0,0,0,2,62,0,0,0,0,0,0,0,0,4- 

. 4,23 — -v -v a 

130 DATA 2,2,4,8,16,32,64,192,4 
, 53,66.66.74,82,130,124,16,30,lb 
, 16,16 !, 16,2,254,4,50,66,4,24,32 , 

2 ,£54.4.50,66,4,58,2,130,124 
Ì40 DATA 3.40,72,2,238,8,8,24,2 
. 126,64,4.242,2,130,124,2,b2,b4, 
4.114,66.130,124,2,122,194,4,8,1 
6.16,43,4,50,66,4,5b,b6,130,124 
150 DATA 4,50,34,130,122,2,130, 
124,0,0,3,24.0.8,24,0,0,0.6,24,0 

,6,24.46,2,30.32,64,32,16,2,30,0 
.! 0,4,124,0,4, Ì 2 4,0 
160 DAT A 16,232,20,2,4,3,16,224 
.8,116,132,8,16,48,0,48,0,2,53,4 
i.33,63,66,62,16,8,36,66,4,1lb,b 
8,204.4.114,66,4,120,66,6,252 
Ì70 DATA 4.50.110,64,64,34,134, 
124,4,114,74,66,66,66,6,252,2,12 

6.64.4.124.64.2, £54,2,126,b4,4,1 
£4.64,64,192,4,50,78,b4,90,34,lo 
4* Ì£4 

180 DATA 66,66,66,2,122,66,66,1 
93.2,222.16,16,16,16,2,254,2,110 
,8,3,72,72,152,112,66,6b,b8,8,10 

4.68.66.198.64.64.64.64.64.64.2, 

190 DATA 66,34,74,82,bb,bb,b6,1 
98,66,34,82,74,66,66,66,198 L 4,56 
.66,66,66,66,134,124,4,122,66,b, 
124,64,64,192,4,58, bb ,66,74,b3,1 

J £0O DATA 4,122,66,6,116,74,66,1 
Qft,4,122,70.132.122,2,130,124,2, 
222.ib,16.16.16.16,48,66,66,66,6 
6,66,66,134,124,66,66,66,bb.84,4 

Q ^ 

2Ì0’DATA 66.66,66,66,66,32,34,1 
98,66,34,4,8,8,4,34,70., 66 ,bb , Ob , 
8 8,8.3.24,4,£42,4,3,lb.32,2,254 
.2.62,32,32,32,32,2,126 
220 DAT A 64,32,16,8,4,2, b,0,2,1 
22.2,2,2,2,2,126,8,4,2,110,3,8,3 
,24,1,255,0,0,0,0,0,0,4,53,38,8, 
134,32,2,254 ,... D 

230 DATA 0.0,2,b1,1,61,65,b3,o£ 

,32,32.4.58,34.4,120,0,0,2,62,32 
,32.66.62.2.2.2,2,58,34,bb,bl,0, 
0.2,61,2,60,66,62 
240 DATA a,30,16,8,88,16,lb,48, 


0.1,61,33,65,61,2,60,3c,3c,3t 0, 
53,34,34.104 , 8,24,8,40 , 8 , 3 , 4 , b0, 
4.12,4,20,4.4,8,112 _ _ _ 4 „ 

660'DATA 32 , 36,40 , 16,40,ob,34,1 



0 T 2 .58,34,66,58 !. 6,0,0,2 ;. 62,32,32 
, 32,96,0,0,2,62,bb,©1,2,b0,lb,lb 

.8.88 . lb . 16,36,28 __ 

270 DATA 0 , 0 ,33,33,33,33,bb,bO, 
0.0.34,34,34,68,40,16,0^0,66,6©, 
66.62,164.72,0.0,34,40,8, 20,42 , .' 
0,0,0,33,33,65,61,2,124 

280 DATA O . 0,2,llb,8,16,2,1&6,2 
,30.16.32,30,16,34.30,8,8,8,3,8, 
8,8,24,8,116,4,10,4,4,3,112,9.50 
.76,0.0,0,0,0 , _ 

290 DATA 2,125,69,93,69,125,130 

,124,0 _ _, 

1000 CLS BEEP .2,4 BEEP . 2, 
BEEP .2,10 BEEP .2,13: BORDER 
5 PAPER 5: BRIGHT 1 CLS _ 

1010 PRINT BRIGHT 0, PAPER b,HT t 

1 Pi ’* 

; PAPER 6, BRIGHT 0 , INK 2, 

i: •• istrazioni per 1 t ShUE 

BRIGHT 0, PAPER 6,AT 3,3,‘ 


bu 

.. 


2.! 


3 J 


1020 PRINT AT 9,1, "li 
la cassetta dove 
den te «1 en te regi- 
p r 0 9 r a m ni a cari - 
sizionandola su¬ 
ll caricatore 
1030 GO SUB 5000 
1040 PRINT AT 9,1 
il registra1 0 re 
registrazione 
tasto F 1 AUSE 1 n - 
1050 GO SUB 5000 GO 
1060 PRINT AT 9,1 
c 1 il tasto 
e rn 1 subito u n 
1070 GO SUB 5500 
1080 PRINT AT 9,1 
aggio e ffe 1 1ua t o 
là cassetta per 
p r e ni i un tasto. 

1090 GO SUB 5000 
eri"CODE GO 
1100 PRINT AT 
ca effettuata 
er digitare il 
rn 0 listato. 

1110 STOP 
5000 PRINT «0 ;hT 
SH 1, BRIGHT 1,"Pre 
er continuare." 

5010 PAUSE 0 
5020 RETURN 

5500 PRINT tt 0,AT 1,0," 


GO 

; "0 

0 

V 


Inserisci 
hai prece 
strato il 
calore p o 
bito dopo 
stesso ■ 

5UB 6000 
pos iziona 
in fase di 
ni a c 0 n 1 1 
sei ito. 

SUB 6000 
Disinseris 
PAUSE e pr 
tasto . " 

SUB 6000 
K . . salva t 

ra riavvolgi 
eri ficare e 

caratt 


oUB 
9,1 


UERIFY 
6000 

, "o . K. , venti 

ora dai NEu p 
terzo ed ulti 

1,1, INK l; FLA 
r e rii 1 un tasto p 


5510 
768 
5520 
b 0 0 0 
b010 


5AUE ca r a t te r i "CODE 59904, 
RETURN 

FOR X=9 TO 15 
PRINT AT X,0, " 


6020 NEXT X 
6030 RETURN 
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Cosa c'è dietro quel muro... 


l'aspetto a dir poco “rilevante” e che 
potrà essere adoperato anche per 
scopi diversi. 

Il terzo listato, infine, è il gioco 
vero e proprio e include anche le 
istruzioni. Da quest’ultimo listato 
può risultare utile estrarre la routine 
per la ridefinizione dei cursori che 
aggiungerà un tocco di professiona¬ 
lità ai vostri video-gamescasalinghi. 

Il gioco è stato progettato per 1 
quarantottisti ovvero per i possesso¬ 
ri di Spectrum 4HK, tuttavia elimi¬ 
nando il nuovo set di caratteri e tra¬ 
mite poche modifiche di facile rea¬ 
lizzazione, può girare anche negli 
Spectrum a 16K. 

Commento al lutato 


Listato 1_ 

1000-1050 Dispone il video 
1060 Carica il sottoprogramma suc¬ 
cessivo per la ridefinizione del set di 
caratteri. 

1070 Attiva il nuovo set di caratteri 
(POKE 23607,60 riabilita il vecchio 
set.) 

1080 Carica il programma-gioco. 




Molto più accattivante del suo arcaico 
predecessore, che tanto ha furoreggiato 
nella preistoria dei videogatnes. questa 
nuova versione di Break-out metterà 
alla prova i vostri riflessi . 


l'hardware 
dello speclrum 


biblioteca Macubi.-* *«ttr9#vc« 


\ 


42 


.. 


ffl 


Adrian C. Dickens 

L hardware dello spectrum 

I componenti del Sinclair 
Spectrum e come intervenire 
sulla sua struttura 
Per gli appassionati di com¬ 
puter c è ancora molto da 
scoprire e personalizzare e la 
maggior parte delle macchi¬ 
ne in commercio consente 
espansioni integrazioni, col- 
legamenti con dispositivi elet¬ 
tronici esterni Questo ma¬ 
nuale offre un'ampia serie di 
indicazioni sui modi possibili 
di intervento sulla struttura fi¬ 
sica del Sinclair Spectrum 

pagine 144, L 12Ò00 



capire gli 
integrali logici 


biblioteca taicnbilfl tfMtrontCS 


_ SI 

ZXSO e ZX81 come 
strumenti di controllo 



Antonio Puglisi 
Capire gli integrati logici 

Studio pratico delle funzioni 
dei c.ì a logica binaria, prove 
di efficienza e progetti appli¬ 
cativi 

Un manuale per hobbisti, stu¬ 
denti. sperimentatori e pro¬ 
gettisti empirici che hanno bi¬ 
sogno di sapere ciò che si ve¬ 
rifica all'interno dei diversi tipi 
di circuiti integrati, di effettua¬ 
re prove funzionali degli stes¬ 
si, di disporre delle indicazioni 
necessarie per potere opera¬ 
re immediatamente, almeno 
nell ambito delle realizzazioni 
piu comuni 

pagine 126, l 12 000 


Robert L. Swarts 
ZX80 e ZX81 come stru¬ 
menti di controllo 

Anche piccoli computer come 
gliZX80eZX8l costituiscono 
un eccellente banco di prova 
per mettere in pratica gli ele¬ 
menti fondamentali della tec¬ 
nica del controllo automatico 
Questo volume, rivolto agli 
hobbisti dell elettromca e a 
tutti coloro che vogliono avvi¬ 
cinarsi a questo campo, illuf- 
stra le applicazioni possibili 
degli home computer nel con¬ 
trollo domestico, fornisce le 
conoscenze indispensàbili e 
presenta alcuni progetti spe¬ 
cifici 

pagine 22J2, L 15 000 


franco muzzio & c. editore ■ 


Se siete interessati a questi, o 
altri ns. libri, compilate la cartoli¬ 
na e inviate a Franco Muzzio 
Editore - Servizio Mailing - via 
Makallè 73 - 35138 Padova 


desidero acquistare 

□ L'hardware dello Spectrum 

□ Capire gli integrati logici 

□ ZX80 e ZX81 come strumenti 
di controllo 

Pagherò al postino L. + 

L 1.000 di spese di spedizione 

a desidero ricevere il Vostro ca¬ 
talogo generale. 


nome 
cognome 
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Cosa c'è dietro quel muro 


Listato 3 


10 INK 7: PAPER 0 BORDER 0: C 
L5 

20 LET a$="7" 

30 LET b $ = "6" 

4-0 LET d*="8" 

50 LET S$ = '’ 5 1 ‘ 

60 LET f$="0" „ , „ 

70 INK 7 PAPER 0: BORDER 0 C 
L5 

80 GO SUB 9000 
90 GO SUB 8000 
100 CLS 

HO PRINT AT 0 , 0 , PAPER 2, INK 
6." SCORE O HI-SCURE 0 


120 LET hì=0 
130 GO SUB 4-000 

14.0 BEEP 1.30 PRINT AT 2,9, FL 
ASH 1,"ALLARME ROSSO": PAUSE 100 
PRINT AT 2.9, " " : 


PAUSE 50 
ISO LET £C=0 
160 LET P =15 : LET q = l: 
LET g = 1 

170 LET V =1: LET W=l: 
LET i=l 

180 LET X =15 LET y =20 
190 LET a = X LET b=y 
200 LET y =y - <INKEY$=a $ 
+ ( INKEY $ = b $ AND y <20) 
210 LET X=X- (INKEY$=S* 


LET f=0 
LET h =1 

AND y >3) 
AND X >0) 


+ (INKEY $ =d $ AND X <31) 

220 IF ATTR (y,X)=5 THEN BEEP . 


01,4.0 

230 PRINT AT b , a j " " ;AT y,X, IN 

24.0 PRINT AT q , p ; " " ; AT q,P-l," 

11 


250 IF INKEY $ = f $ THEN PRINT AT 
M-1, X , INK 5,"OC" 

260 LET p=p+v LET q=q+W 
270 IF p =31 OR P=0 THEN LET V = - 
V BEEP .01,15 

230 IF q=l THEN LET W=-W: BEEP 
.01,15 

290 IF ATTR (q,p)=5 THEN BEEP . 
01,50 GO SUB 3000 
3Ó0 IF ATTR (q,p)=4 THEN GO TO 
7000 

310 PRINT AT q,p; INK 6,"B" 

320 IF SC <500 THEN GO TO 400 
330 PRINT AT g , f, " " ,AT g,f-l," 

■ i 


340 LET f = f+h LET g=g+i 

350 IF f=31 OR f=0 THEN LET h=- 
h BEEP .01,15 

360 IF g = 1 THEN LET i=-i BEEP 
.01,15 

370 IF ATTR (g,f)=5 THEN BEEP . 
01.50 GO SUB 3500 

330 IF ATTR (q , f) =4 THEN GO TO 
7000 

390 PRINT AT q,f, INK ò,"6" 

400 LET SC=SC+1: PRINT AT 0,7, 
PAPER 2, INK 6, SC 

410 GO TO 190 

420 IF S e > =hì THEN LET hi =SC: P 
RINT AT 0.25; PAPER 2. INK 6, hi: 

PRINT AT 0,7; PAPER 2; INK 6,"0 

l < 


430 FOR 2=1 TO 20 
440 PRINT AT 2.0. 


INK 



450 NEXT 2 
460 GO TO 130 
3000 LET v=V LET w=-w 
3010 IF q =21 OR q=0 THEN LET W=- 

W 


3020 

3500 

3510 

3520 

4000 


RETURN 
LET h=h 
IF g =21 


LET i=-i 
OR g =1 THEN LET 


AT 


TO 
t 


30 


RETURN 
FOR S=1 
5 STEP 2 
4010 PRINT 
EP .01,S 

4030 NEXT t: NEXT S 
4040 FOR i=0 TO 31 
4050 PRINT AT 21,j, 
EEP . 01,2 * j 
406-0 NEXT j 
4070 PRINT AT 2,10, 


FOR t =5 
INK 5, " C' 


TO 1 
BE 


fise 


INK 4;"D" B 


INK 0, 


4080 RETURN 

7000 IF ATTR (q . p) =4 THEN PRINT 
; INK 6. BRIGHT 1,AT q-l,p-l;"FH 
J"; AT q-2 .P-I. "EGI" : BEEP .5,1: 
BEEP .5.1: BEEP 2. -2 PRINT AT q 
-l.p-l,. INK 0 ; "H ', AT q - 2 , P - 1 , 

7010*^ IF^^^TTR (g,f)=4 THEN PRINT 
, INK 6, BRIGHT 1,AT g-1,f-1,"FH 
J", AT Q-2 . f -1. "EGI" : BEEP .5,1: 
BEEP .5,1: BEEP 2,-2 PRINT AT g 
-1 . f -1 . IN K 0. AT g -2 , f -1, 

INK 0,"HH" 

7020 PRINT AT 21,0, PAPER 4, INK 
7. BRIGHT 1, FLASH 1,"DDDDDDDDD 
DDDDDDDDDDDDDDDDDDDDDDD" 

7030 PRINT AT 3,11, PAPER 1, INK 
7, FLASH 1,"GAME OUER" 

7040 FOR b =60 TO -20 STEP -2 
7050 BEEP .01, b 
7060 NEXT b 

un altra partita? 
LINE r$ 

OR r $ = "5" THEN 


OR r $ = "N" THEN 


GO 

GL 


7070 INPUT " 

(S 0 ri) ", 

7080 IF r $ = "S " 

TO 8070 
7090 IF r$="n" 

S : GO TO 7110 

7100 IF r $ < > " s " OR r$o"S" OR r% 
<> " n " OR r $ < >"N" THEN GO TO 7070 
7110 PRINT ' " INK RND *6.T AB RND* 
15,"OK, CIAO PER ORA!" POKE 236 
92,255 GO TO 7110 
8000 GO SUB 9100 

8010 BEEP .1.30 PRINT AT 2,3, I 
NK 5."D E F È N D E R" 

6020 PRINT AT 5,1, BRIGHT 1, INK 
3;"Riuscirà' il nostro povero G 
ix".AT 6,1,"a difendere la terra 
dall at-",AT 7,1,"tacco dei ma 
l v a g i 
r i a 
, 1, 


alieni anti-",AT 8,1,"mate 
che stanno annientando",AT 9 
il campo di forza protettivo 


8030 PRINT AT 
UO 
1, 


può' riparare 


11,1, INK 4,"Eg li 
il campo di";AT 12 
■ forza con il suo laser e pu 
AT 13,1,"anche attraversarlo 
, ma questo",AT 14,1,"causa dei 
pericolosi cunicoli!" 

3040 PRINT AT 16,1, INK 3, BRIGH 
T l,"Riuscirà a fermare almeno 
i i",AT 17,l,"secondo a lieno 


i •-? i 


3050 PRINT 80.AT 1,0, 
NK 7. FLASH 1," Premi 
er continuare. " 

8060 PAUSE 0 
3070 CLS GO 
8030 P RINT AT 


PAPER 1, 

un tasto 


I 

p 



PLOT INK 
2,215,0 DRAU 
NK 2,-215,0 
3100 PLOT INK 


0.40 DRAU INK 
INK 2.0.22 DRAU I 
RAU INK 2;0,-22 
2.18.38 DRAU INK 
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2,219,0 DRRU INK 2.0.26 DRRU I 
NK 2,-219,0 DRhU INK 2;0,-26 
S110 PR INT RT 15.3; INK 3 ; ” P r e trt i 
x L tasto appropriato" 

5120 GO SUB 9200 

8130 PRINT 00,RT 1,0; PRPER 1, I 
NK 7, FLR5H 1," Premi un tasto p 


e r giocare.. 

514.0 RETURN 
FOR n =1 
RERD C $ 

FOR p =0 
RERD q 
NEXT p 
NEXT ri 

DRTR "fi" .3,27,27.1 


PRU5E 0 CLS 


9000 

9010 

9020 

9030 

9040 

9050 

9060 


TO 10 

TO 7 
POKE 


USR C $ +P , q 


7 


20,64 , "B" , 66,60.90.126,126,90,66 
, 36 , "C" ,0,255,129,159 . Ì29,255 '. 0 , 
0,"D",241,159,241,159. 241 ,159.24 
1,159 ,"E" ,0,0,2.2.9,37,16.5. "F“ , 
100,2,225,24,70,O,252,0, " G " ,15,i 
46,34,34,35,17.130.130,"H" . 54.34 
,17,186,124,124,254,16, I ", 0 Ò,1 
23,126 ., 32,72,16,32 , " .J , 7t> , 128,14 
,48,196 ,O,126.0 
9070 RETURN 

9100 DRRU INK 2,255.0 DRRU INK 
2.0 175 DRRU INK 2.-255.0 DRRU 
INK 2.0.-175 

9110 PLOT INK 2,2,2 DRRU INK 2. 
251,0 DRhU INK 2.0.171 DRRU IN 
K 2,-251,0 DRRU INK 2.0,-171 
9120 RETURN 

9200 IF INK ET $ < > " 1 RND INK ET $ < > 
"2" THEN GO TO 9200 
9210 IF INKEY$ = "2" THEN GO TO 10 
0 

9220 CLS GO SUB 9100 
9236 PRINT INK 6 ;RT 5 ,IO 



LET a $ = INKEY$ 

IF a $ = " " THEN GO TO 9240 
PRINT INK 6,RT 5.22,3$ 
PRUSE 0 PfiUSE 50 
PRINT INK 6,RT 7.10. 


BRS50 


9290 
9300 


LET b$=INKEY$ 

IF b $ = " " OR b$=a$ THEN 


GO T 


0 9290 

9310 PRINT INK 6 . RT 7,22. b$ 
9320 PAUSE 0 PAUSE 50 
9330 PRINT INK 6.RT 9.10, 


DESTR 


934 0 LET d $ = INKEY $ 

9350 IF d $ = •••• OR d$ = a$ OR d$ = b$ 

THEN GO TO 9340 

9360 PRINT INK 6 . RT 9,22,d$ 

9370 PAUSE 0 PAUSE 5Ó 
9350 PR INT INK 6 . RT 11,10, "| 


STRR 


9390 LET s $ = IN KEY $ 

9400 IF S $ = "" OR S$ = a$ OR S$ = b$ 
OR s $ = d $ THEN GO TO 9390 
9410 PRINT INK 6.RT 11.22;s$ 

9420 PRUSE 0 PAUSE 50 ' _ 

9430 PRINT INK 2, RT 13.10; " ■aUSIB 

9440 LET f $ = INKEY $ 

9450 IF f$ = "" OR f$=a$ OR f$=b$ 
OR f $ =d $ OR f $ =s $ THEN GO TO 944 
0 

9460 PRINT INK 2,RT 13,22. f% 

9470 PAUSE 0 PAUSE 20 
9480 PRINT INK 6,AT 16,4;"se hai 
s b a g u s t o p r e ri i i 0 
9 490 IF INKEY $ = "■' THEN GO TO 949 
0 

9500 IF INKEY$="r" OR INKEY$="R" 
THEN GO TO 9220 
9510 RETURN 

9900 CLS SAUE " de f endtr " LINE 
1 

9910 PRINT RT 10.3 ; "RiaVv0t Q ì La 
•: a s s fitta p e r " RT 12 . 10 . "UER IF IC 
ARE '' 

9920 uERIFY de fender" 

9930_CLS PRINT RT 10,0, INK 3, 

BR Io hT 1, " P r 0 g r a rii ha a v eri f 

lesto " stop 



9990 Salva su nastro l’intero pro¬ 
gramma caricatore. 

Listato 2 __ 

10 Fissa la nuova RAMTOP in mo¬ 
do da non poter cancellare il nuovo 
set di caratteri. 

30-70 Carica tutti i dati contenuti nei 
DATA dalla locazione RAM 59904 
in poi. 

100-290 DATA contenenti i dati per 

11 nuovo set. 

1000-6030 Istruzioni per il salvatag¬ 
gio della sola zona di memoria con¬ 
tenente il nuovo set (funziona in 
maniera totalmente automatica). 

Listato 3_ 

10-190 Inizio del master; dati inizia¬ 
li; definizione cursori e variabili; 
predisposizione video. 

200-250 Routine di stampa c gestio¬ 
ne movimenti giocatore. 


260-390 Routine di stampa e gestio¬ 
ne movimenti alieni 
400-420 Routine per la gestione dei 
punteggi. 

3000-3520 Routine di verifica validi¬ 
tà movimenti o eventuali corre¬ 
zioni. 

4000-4080 Predisposizione videata 
per il gioco. 

7000-7060 Simulazione esplosione e 
messaggio di fine gioco. 

7070-7100 Routine di scelta per la 
continuazione o la fine del gioco. 
8000-8120 Presentazione e istru¬ 
zioni. 

9000-9070 Routine per la definizio¬ 
ne dei caratteri grafici. 

9100-9120 Routine per il plottaggio 
di una cornice intorno al video. 
9200-9510 Routine per ridefinire i 
tasti cursori. 

9900-9930 Routine per il salvataggio 
su nastro. 


I tre listati vanno salvati conse¬ 
cutivamente su nastro, avendo cura 
di lasciare tra di essi alcuni attimi di 
silenzio. 

1) Digitare il primo listato e dare 
GO TO 9990 

2) Lasciare 4 o 5 secondi di nastro 
vuoto. 

3) Digitare il secondo programma e 
dare RUN. le istruzioni per il salva¬ 
taggio del solo set di caratteri e non 
di tutto il programma vi guide¬ 
ranno. 

4) Lasciare 2 o 3 secondi di nastro 
vuoto. 

5) Digitare il terzo e ultimo listato, 
dare GO TO 9900 e seguire le istru¬ 
zioni. 

Ora che 1 tre programmi sono sal¬ 
vati basta riavvolgere la cassetta, 
dare LOAD" ”, far partire il regi¬ 
stratore e... divertirsi. 

Umberto Paliotto 
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Musica, 


maestro! 


M olti lettori hanno certamente 
nella loro biblioteca di softwa¬ 
re un programma che consente al 
Commodore 64 di suonare, trasfor¬ 
mando la tastiera in quella di un 
pianoforte. In effetti, di programmi 
di questo tipo ne esistono svariati, 
ma bene o male tutti non vanno ol¬ 
tre il tipico utilizzo dei registri del 
S1D (il Sound Interface Device). In¬ 
fatti esistono alcuni aspetti della ge¬ 
nerazione del suono nel sintetizza¬ 
tore integrato che vi presentiamo, 
che riescono del tutto nuovi, non 
fosse altro per la scarsità di accenni 
da parte dei manuali (e non solo 
quelli). 

Ormai tutti sanno come utilizzare 
i tre registri VOCE, quelli dedicati 
al controllo della forma d'onda, ecc. 


LISTATO 


0 

1 

2 

3 

4 

5 

6 
3 
10 
11 
12 

14 

15 

16 
18 

20 

22 

23 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


******* ************** 


** 

** 

** 

** 

** 

** 


C64 SVNTHESIZER 
BV L. BHRBETTI 


** 

** 

** 

** 

** 

** 
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30 

40 

50 

60 

70 

80 

85 

30 

35 

100 

105 

110 

115 

120 

125 

130 

135 

140 

145 

150 


MILRNO 

********************* 

PQKE53280,0 P0KE53281,0 PRINTCHRf<147) 

RH$=CHR$< 18) RF$=CHR$<. 146) BL$=CHR$<5> GR*=CHR*< 
SQ$=CHRfCISO FORF=1T023 : S6t=SQ$+CHRt 1 17) NEXTF 
SF'$= " " FGRF-1TQ34 SP$=SP$+CHR$‘;32) NEXTF 
G$=CHR$<19) F0RF=1T015 Qf=Q$+CHR$<17> NEXTF 
C1$=CHR#<145) F0RF=1T07 :C1*=C1*+CHR*<29> NEXTF 
FORF=1T03 C2$=C2$+CHR$ <29 ) NEXTF 
l":3$=Cr 4t=f3f■+CHR*<29 ) +CHP* <29 ) 

C2$=C24+" 11 C3#=C3*+CHR$•!29) + " " C4*=C4$+" 

FORF =1T03 C2$=C2$+CHR$(157) G3$=C3$+CHR$<157) 
C4$=F4$+CHR$<157) NEXTF 

B$="*' F0RF=1T02 B*=B*+CHR*<Ll37> NEXTF RE»=CHR$<28> 
VF*»CHR*a58) 

PR INTTRB(6 ) REt " r-— 

PRINTTRB(6)"I"RN*YE$ 

PR1HTTRB<6)" - - 




C24-C1 $ 


BIGITRL SVNTHESIZER 64 
-- - "BLf- 

Il II " 

Il II " 


"RFIREJ" 


F'P INTTRB< 7 ) RN4" Il II 
PRINTTRB<7)RN$” Il II 
PRINT THE (7 > RN$" I I 
PP1NTTRB 1 7 'RNf"QIWIE IRI TIVIU11101P I @ I * 11" 

PRINTRF$RE$"-— 

PRINT "Aia FI ■ a F3 1 a F5 ■ a F7 ■ 
PRINT"J0 COPYRIGHT <C) 1385 BV R.E. 

PRINTRE'f- 


r'E$, 


PRINT" 3NQIC 
F0RF=1T03 
PRINT “ IÌH" F " Itila 
NEXTF 

PRINT"_ 

H' l.>=0 fi<2)=0 
D' 1 )=0 IK2)=0 


«4TT.S S1DEC.S SEUST. ■ SFEL.S 


OCTRVE SELECTI0N" 

& COMPUTER" 

_" GRi 

3WRVEB" 


S' 1)=0-S(2)=0 
R<1)=0 R<2>=0 


R (. 3 ) =0 
D<3)=0 
S<3)=0 
R <: 3 ) =0 


U(l)=17 W(2)=17 W(3)=17 


RE 

MUSICALE 
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inque, dieci, venti 
menti a vostra 
isposizione? Un'intera 
orchestra pronta a 
eseguire una sinfonia al 
comando della vostra 

■\ 

elettronica bacchetta? E 
possibile,facilee 
divertente... 


Ma alcune perplessità nascono a 
proposito del quinto registro (per 
ciascun oscillatore) i cui indirizzi so¬ 
no 54276. 54283 e 54290 nell'ordine. 
Per questi registri tutti sanno che i 4 
bit più significativi determinano la 
forma d'onda: così se il bit 7 è setta¬ 
to a 1, si predispone l’oscillatore a 
generare del rumore (tutti gli altri 3 
bit essendo a zero). Così se è a 1 il 
bit 6. si genera invece un'onda a 
rampa, e così via. 

Non tutti sanno invece che le di¬ 
verse forme d'onda sono miscelabili 
fra loro dando luogo ad altre 4 com¬ 
binazioni possibili. Così si può ave¬ 
re, per esempio, un'onda triangola¬ 
re a rampa, configurazione (0011 ). 
una rampa ad impulso (0110) ecc. 
Le uniche combinazioni impossibili 


152 FB=5.80 É=1 M-8 H=1 P0KE1391,81 P0KE54272+1391/1 P=1391 

155 G0SUB10000 REM VALORI 

220 PRINTBLf"jffTRANSPGSE ?",FB 

225 GETR$ IFR$=""THEN225 

227 IFR$=CHRf <13)THEN300 

230 IFR$=CHR$<145)THENFB=FB+0.01 

235 IFR$=CHR$ <17)THENFB=FB-0.01 

240 PRINTTAB<11)CHR$<145)<INT<FB*100)7100)CHR$<157>" "Bf 
245 G0T0225 

300 PRINTCHR$<145)" " ; REM 27 SPAZI 

305 BIMF<26),K<255> 3=13*4096+1024 

307 GETR$ IFR$="“THEN307 

308 IFR$="L"THEH15000 

310 FGRI=0TO28 POKES+1,0 NEXTI 

315 F1=7040 F0RI = 1T026:F<27-I>=Fl*FB+30 F1=F172T< 1/12) NEXT 
320 K$="Q2W3ER5T6V7U19O0P@-#£ t" 

325 F0RI = 1T0LEN<K$> K<ASC<MID$<K$,I))) = I : NEXT 

400 REM SET PflRAMETERS 

402 G0SUB1200W REM BATTIMENTO 

405 PRINTSQ$, V=1 

410 PRINT"3 VOICE ■ «■■■■r/V 

415 GETR$ IFR$=""THEN415 

417 IFR$=CHR$<13)THEN450 

418 IFRf=" "THEN1000 REM PLAV 

420 IFR$=CHR$<145)THENV=V+1 IFV>3THENV=1 
425 IFR$=CHR$<17)THENV=V-1 IFV<1THEHV=3 
430 PRINTClfV G0T0415 
450 PRINTSQ*, 

455 PRINT"3 ATTACK ? ■ llll l> ,A(V) 

460 G£TR$ IFR$=""THEN460 

465 IFR$=CHR$<13)THENGOSUB10000 GOTO500 

470 IFR$=CHR$<145)THENA<V> =A<V)+1 IFA<V)>15THENA<V)=0 

472 IFRt=CHR$<17> ThENA<V> =A<V)-1 IFA<VK0THENA<V) = 15 

475 PRINTC2$A <V):G0T04Ó6 

500 PRINTSQ#, 

505 PRINT"3 BECAV ? ■ 1111",IKV) 

510 GETR$ IFR$=""THEN510 

515 IFR$=CHR$<13)THENG0SUB10000 GOTO600 

520 IFR$=CHRf< 145)THENB<V) =B<V> +1 : IFB<V»15THEND<V)=0 

522 IFR$=CHRf<17)THEND<V)=D<V)-1 IFB<VK0THENH<V) = 15 

525 PRINTC2$B<V) GOTO510 

600 PRINTS0#, 

605 PRINT"a SUSTAIN ? ■ ■■■r;S<V> 

610 GETRf IFR$=""THEN610 

615 IFR$=CHR$ <13)THENGOSUB10000 GOTO7G0 

620 IFR$=CHR$<145)THENS<V> =S<V) +1 IFS<V)>15THENS(V)=0 

622 IFR$=CHR$ <17) TFIENS < V ) =S< V) -1 IFS< V) 70THENS< V> = 15 

625 PRINTC3$S<V) G0T0616 

700 PRINTSQ$, 

705 PRINT" a RELEASE ? ■ ■■■l"iR<V) 

710 GETR$ IFR$=""THEN710 

715 IFR$=CHR$<13)THENGOSUB10000 GOTO800 

720 IFR$=CHR$<145)THENR < V)=R< V) +1 IFR<V»15THENR <V> =0 

722 IFRt=CHR$< 17)THENR<V> =R<V)-1 IFR<VX0THENR<V) = 15 

725 PRINTC3$R<V> GOTO710 

80U PRIHTSQT, 

805 PRINT" 3 NAVEF0RM? ■ «■■l ,, ,W<V) 

810 GETRT IFR$=""THEN810 


REM-7-25 SPAZI-7 

815 IFR$=CHR$<13)THENGOSUB10000 

PR I NT " KJ " GOTO405 


820 IFR$=CHR$<145)THENC=C+1 IFC>4THENC=1 



822 IFR$=CHR$<17)THENC=C-1 IFC<1THENC=4 

825 IFC=1THENN <V)=17 

826 IFC=2THENW < V)=33 

827 IFC-3THENU < V)=65 
328 IFC=4THENM<V)=123 
850 PRINTC4$CHR$<157)W< V) GOTO810 
1000 REM PLAV 
1002 P0KE5429S,15 
1005 F0RF=1T03 
1010 AB<F>=16*A<F)+B<F) 

1U15 SR<F)=16*S<F)+R<F) 

1020 POKE54270+7*F,AB<F) 

1025 P0KE542?1+7*F,SR <F) 

1035 NEXTF 

1036 IFH= 1THENP0KE54276.• W< 1 )+4 P0KE54283,W<2) POKE54290/W<3> 
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Musica, maestro! 


1037 IFH=2THENP0KE54276;W<l>+4 F0KE54283; WC2) POKE54290,W<3> 
1033 IFH=3THEMP0KE54276,W<1> P0KE54283,W<2> POKE54290.W<3>+4 

1039 IFH=4THENP0KE54276,Wa> P0KE54233,U<2> PDKE54290; W(3) 

1040 IFW<1)=65THENP0KE54275/13 P0KE54274,192 
1044 IFW(2>=65THENP0KE54282,13 P0KE54281/192 
1048 IFW(3>=65THENP0KE54289j13 P0KE54288, 192 
1058 GETRT IFR$=""THEN1050 

1051 IFR$=CHR$<13>THEN400 

1052 IF < (RSC < Rt )> 132>AND< RSC<R$X137> ) THEN 1100 

1053 IFR$=" "THEN2000 REM GLISSRHDO 

1054 IF(< R t= "S") OR < R$="L"> >THEN15000 

1055 FR=F<K(fiSC(R$>>)/M IFFR=0THEN1050 
1060 FL=FR-256#INT(FR/256) 

1065 FH=FR/256 
1070 F0RF=0TO2 

1072 FT=FL-B*<<H-F-1)=0) : IFFT<0THENFT=0 

1073 IFFT>255THENFT=255 
1075 P0KE54272+F*7,FT 
1080 P0KE54273+F*7,FH 
1085 NEXTF 

1090 GOTO1050 

1100 POKER,32 PP= 1381+5*<HSC<R$)-l32> PUKEPP > 81 
P0KE54272+PF,1 : P=PP 
1102 IFR*=CHR#<133>THENM=2 GOTO1050 
1105 I FR$=CHR $<. 134 )THENM=4 GOT01050 
1110 IFR$=CHR$(135 > THENM=8 GOTO1050 
1115 IFRS=CHR*C136)THENMsl6 GOTO1050 
2000 FORF=15TO0STEP-1 
2005 FORG-1TO400 NEXTG 
2010 PQKE54296 >F 
2015 NEXTF 

2020 FORI=0TO28 POKES+1,0 NEXTI 
2025 GOTO1000 
10000 PRINTQ'T 

10002 F0RF=1T03 __ 

10005 PRINT"WS"TRB(8>R<F>"Il "TRBU4 JD<F> "Il "TRB',20>S<.F> Il , 
10010 PRINTTRB<27>R<F>"Il ,, TRB<33>I«KF>"II " 

10015 NEXTF 
10020 RETURN 
12000 PRINTSQ*, 

12005 PRINT"SI BRTTIM. ■ IHII'SE 

12010 GETRf IFRf—""THEN12010 

12015 IFR$=CHR$<13>THEN1205O 

12020 IFR$=CHR$<145>THENB=B+1 IFB>20THENB=1 

12025 IFR$=CHR$C17>THENB=B-1 IFB<1THENB=20 

12030 PRINTC1$CHRtC29>CHR$< 29)BCHRT<157 >" "B* GOTO12010 

12050 PRINTSQ$• 

12055 PR I NT "3 RI NO ■ imi", GOT012085 
12060 GETRf IFR*="-" THEN 12060 
12065 IFR$=CHR$<13? THENRETURN 
12070 IF R$=CHRt <145 > THENH-H+1 IFH>4THENH=1 
12075 IFR$=CHR$a7>THENH=H-l IFH<1THENH=4 
12080 PR I NTC 1 fCHRf 29 ).. 

12085 IFH=1THENPRINT"1-3" 

12090 IFH=2THENF'RINT"2-1 " 

12095 IFH=3THENPRINT"3-2“ 

12100 IFH=4THENPRINT"-" 

12105 GOTO12060 
15000 REM LORD/SRVE ROUTINES 
15005 PRINT3QTCHRJ- < 145)CHR$145 > 

15010 INPUT"MFILENflME *',F$ 

15015 IFF$=""THEN310 
15020 IFR$="S"THEN15225 
15025 0FEN2 , 8.- 2/ F $+", S - R" 

15030 INPUT#2.' H, B 
15035 FORF=1T03 

15040 INF'UT#2.■ FK F), IKF) , S<F>, R<F), l-KF> 

15045 NEXTF 
15050 F'RINTSQfSF'T 
15055 CL0SE2 GOSUB10000 GOTO310 
15225 0PEN2..8..2, "@0 "+F4+”,S,W" 

15230 Ct=CHRf'• 13) PRINT#2, H, C$, B, C$ 

15235 FORF-1T03 

15240 PR I NT#2, fl C F > C $, D < F > C$, 3 < F ) C$, R C F > C$, U F ), L f 
15245 NEXTF 

15250 PRINTSQrSPf CLÙSE2 GOSUB10800 
15255 GOTO1000 



sono quelle che coinvolgono il hit 7: 
in altre parole nessuna forma d'on¬ 
da può essere miscelata con il rumo¬ 
re. 

Vediamo invece i 4 bit meno si¬ 
gnificativi dei registri di controllo. 
Tutti sanno che il bit Oè il bit di gate. 
E gli altri tre? Per molti sono dei 
veri bachi oscuri. Il bit 3 è il cosid¬ 
detto bit di abilitazione disabilita- 
zione: se impostato a 1, blocca il 
relativo oscillatore senza modificare 
quindi alcuno dei parametri inseriti. 
11 bit 2 è quello che viene in effetti 
utilizzato a iosa in questo sintetizza¬ 
tore: è il cosiddetto bit di controllo 
della modulazione ad anello. 

Molti di voi probabilmente non 
sanno di che cosa si tratta. Ebbene, 
un modulatore ad anello è un dispo¬ 
sitivo che elabora in un particolare 
modo due segnali: li moltiplica tra 
loro e dà in uscita due segnali, che 
risultano essere l'insieme della som¬ 
ma e della differenza dei segnali di 
ingresso. 

Così, ad esempio, se le frequenze 
in ingresso sono 600 e 800 Hz, il 
segnale in uscita sarà Pinsieme dei 
due segnali 1400 IIz (600+800) e 
200 Hz (800-600). L’effetto che si 
ottiene è di generare suoni partico¬ 
lari dovuti ai rapporti tra le varie 
frequenze (armoniche). Questa tec¬ 
nica viene usata in particolare per 
generare suoni come quelli delle 
percussioni metalliche. Per ottenere 
tale modulazione è necessario, co¬ 
me detto, agire sul bit 2. In questo 
modo si creano degli accoppiamenti 
particolari (fissi) tra i registri: se si 
imposta a 1 bit il bit 2 del primo 
registro di controllo, la modulazio¬ 
ne coinvolge il terzo oscillatore; se si 
agisce sul secondo registro, vengo¬ 
no accoppiati gli oscillatori 2 e 1, 
ecc. Si creano quindi le coppie: 


1-3, 2-1,3-2 


dove il primo numero indica l’oscil¬ 
latore "modulante" e il secondo l'o¬ 
scillatore "modulato". 

A tale proposito, nella generazio¬ 
ne del suono tra oscillatori accop¬ 
piati. i valori determinanti (ADSR, 
gate ecc.). sono quelli del primo 
oscillatore, mentre nel secondo è 
sufficiente impostare la sola fre¬ 
quenza (byte alto). 11 bit 1 invece 
agisce sulla sincronizzazione tra i 
due oscillatori in questione, lmpo- 
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1 simboli del listato 

Linea 

Modo di ottenerli 

25 

Ctrl A, 25*Shift C, Ctrl S 

30 

Shift B, ... , Sh i -f t B 

40 

Ctrl 2, 25*Sh i +' t C, Ctrl X 

o 

■o 

1 

o 

tn 

2*<Spazio+CrsrRight), Spazio, 
Shift B, Spazio, 3*<CsrsRight, 
Spazio), Shift B, Spazio, 2*( 
CsrsRight, Spazio), Shift B, 
Spazio, 2*<CsrsRight, Spazio) 

70 

Spazio, 12*(Shift B, Spazio) 

80 

12*<Le t ter-a, Shift B), Lettera 

85 

40*< Ctrl P) 

90 

CsrsDown, 4*<Ctrl 9, ...., Ctrl 

0, Spazio), 3 Spazi, ... 

95 

Csr sDown, Scritta... 

100 

Come linea 85 

105 

Ctrl 9, Parola, Ctrl 0... 

115 

CrsrDown, 2*<CrsrRight) , . .., 

3*<CrsrRight); Ctrl 9, ..., 

Ctrl 0, ... 

125 

38*< Ctrl P) 

410 

Ctrl 9, ..., Ctrl 0 , . . . , 5* 

< CrsrLef t) 

455 

Ctrl 9, ..., Ctrl 0.3* 

<. CrsrLef t) 

505 

Come Linea 455 

605 

Come linea 455 

705 

Come 1inea 455 

805 

Come 1 i nea. 455 

10005 

CrsrDown, Ctrl 9, ..., Crsr 

Lef t. . . 

10010 

CrsrLeft, ..., CrsrLeft 

12005 

Ctrl 9, ..., Ctrl 0, ..., 4* 

<CrsrLeft) 

12055 

Come linea precedente 

15010 

CrsrDown 


stato a 1, sincronizza il segnale con 
l'altro oscillatore accoppiato. Se i 
due oscillatori hanno frequenze fra 
loro vicine, l'effetto della sincroniz¬ 
zazione è quello di eliminare i batti¬ 
menti. ma se le due frequenze sono 
significativamente diverse, si ha un 
effetto particolare dovuto al feno¬ 
meno transitorio dell'onda a fre¬ 
quenza maggiore che si "allinea" con 
l’altra. Il programma qui presentato 
sfrutta soltanto la modulazione ad 
anello in quanto è questa che con¬ 
sente la creazione di suoni partico¬ 
larmente armonici. 

Funzionamento 


Dato il RUM, viene richiesto di 
inserire il valore di transpose (nor¬ 
malmente 5. 8). Per questo valore, 
come per tutti i parametri, la modi¬ 
fica si ottiene con i tasti di controllo 
cursore: con cursore in alto si au¬ 
menta il valore visualizzato, con 
cursore in basso si diminuisce. Que¬ 
sta opzione consente di effettuare 
l'accordatura di questo sintetizzato¬ 
re con altri strumenti, poiché modi¬ 
fica la frequenza base. 

La conferma del valore si ottiene 
con RETURN. Va quindi premuta 
la barra dello SPAZIO. A questo 
punto vengono richiesti, in sequen¬ 
za. i valori per: Battimento e Ring. 
Per il primo in pratiea si tratta di 
stabilire (con un valore da 1 a 20) di 
quanto si deve scostare la frequenza 
(byte basso) dell'oscillatore accop¬ 
piato rispetto all'oscillatore modu¬ 
lante (e quindi determina in pratiea 
l’accentuarsi o meno dei fenomeni 
precedentemente visti) La confer¬ 
ma si dà al solito con RETURN. 11 
Ring stabilisce tra quali oscillatori 
ha luogo la modulazione ad anello: 
con i tasti controllo cursore si sele¬ 
zionano le diverse possibili combi¬ 
nazioni Dato il RETURN di con¬ 
ferma si passa a inserire gli abituali 
valori relativi ai parametri (AT- 
TACK, DECAY. SUSTAIN e RE¬ 
LÈ ASE) e quindi la forma d'onda 
desiderata per ciascun oscillatore. 
Tutti i valori inseriti vengono v isua¬ 
lizzati sullo schermo in apposite ca¬ 
selle che rappresentano i singoli re¬ 
gistri Terminata questa fase, dando 
SPAZIO, si entra in modo PLAY: 
premendo uno qualsiasi dei tasti re¬ 
lativi alla tastiera (visualizzata sullo 
schermo) si genera il suono richie¬ 
sto. Con L si carica (da disco) una 


serie di valori preregistrati e con S 
(entrambi dati in modo PLAY) si 
procede a salvare ì valori inseriti. È 
comunque possibile, in modo 
PLAY, rimodificare tutti o alcuni 
dei valori inseriti dando RETURN: 
la sequenza di dati è la stessa di 
quella di partenza, mentre dando 
SPAZIO si ottiene l'effetto di 
GLISSANDO, cioè la terminazione 
del suono per abbassamento del vo¬ 
lume. 

Il programma 


10 Cancellazione schermo e inseri¬ 
mento colori di bordo e sfondo. 
11-23 Definizione delle stringhe di 


controllo del cursore. 

25-80 Stampa sullo schermo della 
tastiera. 

85- 125 Stampa sullo schermo delle 
caselle registri e dei comandi di otta¬ 
va. 

130-152 Vallili iniziali parametri. 
155 Salto alla subroutine di stampa 
dei valori dei registri. 

220—245 Richiesta valore di traspo¬ 
sizione. 

300 — 325 Creazione tabella delle 
Irequenze base. 

402 Salto alla subroutine di inseri¬ 
mento dei valori di battimento e di 
ring modulation. 

410—450 Richiesta modifica dei va¬ 
lori di una delle tre voci. 
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Musica, maestro! 


455-500 Inserimento del valore di 
attack del registro scelto. 

505-600 Inserimento del valore di 
decay. 

605-700 Inserimento del valore di 
sustain. 

705—800 Inserimento del valore di 
release. 

805-850 Inserimento della forma 
d'onda desiderata. 

1000-1035 Calcolo valori compositi 
da pokare nei tre registri 
1036-1039 Inserimento dei valori 
delle forme d'onda in base ai registri 
coinvolti nella modulazione ad anel¬ 
lo. 

1040-1048 Valori di default (modi¬ 
ficabili) nel caso di selezione di for¬ 
ma d'onda pulsante. 

1050 Nota suonata o comando. 

1051 Salto alla parte di modifica dei 
parametri. 

1052 Comandi di modifica ottava se¬ 
lezionata. 

1053 Effetto di glissando. 

1054 Comandi per caricamento e/o 
salvataggio dei valori inseriti. 
1055- 1065 Calcolo dei valori di fre¬ 
quenza (byte bassi e alti) da pokare 
negli oscillatori. 

1072—1085 Calcolo frequenze mo¬ 
dulate. 

1100— 1115 Modifica dell'ottava se¬ 
lezionata e visualizzazione della 
spia di riferimento. 

2000 —2025 Routine per l'effetto di 
glissando. 

10000-10020 Subroutine di stampa 
dei valori dei registri 
12000—12030 Routine per l'inseri¬ 
mento del valore di battimento. 
12050—12105 Routine per selezione 
dei registri in modulazione ad anel¬ 
lo. 

15000—15055 Routine di carica¬ 
mento di una serie di valori preregi¬ 
strati. 

15225 15255 Routine di salvatag¬ 
gio dei valori prescelti 

I simboli del listafo 


Nella figura ldiamo alcuni esem¬ 
pi da provare direttamente. Ciascu¬ 
no di voi potrà poi modificarli libe¬ 
ramente secondo i propri gusti (figu¬ 
ra 2). 


Questo programma è disponibile su 
cassetta. L’elenco, i prezzi e le modalità 
d’ordine di questa e delle altre cassette 
disponibili sono riportati alle pagg. 81 - 
82. 



* Suoni ottenibili 

Valori (attack...) 

Clavicembalo- 

6 5 15 7 65 

Pianoforte 

4 10 15 7 33 

5 9 15 7 33 

Battimento = 18 

Ring =2-1 

Ottava FI/F3 

Flute 

8 3 15 10 17 

6 6 10 4 17 

5 8 12 8 17 

Battimento = - 
Ring • — 

Ottava FI/F3/F5 

Sintetizzatore 1 

2 4 8 4 17 


3 4 10 5 33 

4 6 9 3 17 

Battimento = 18 

Ring -2-1 

Ottava F5/F7 

Sintetizzatore 2 

0 2 4 1 33 

1 3 10 3 33 

2 3 9 2 33 

Battimento = 8 

Ring = 3-2 

Ottava F5/F7 

Oboe 1 

10 10 IO 10 65 

10 10 10 10 65 

10 10 10 10 65 

Battimento = 5 

Ring =3-2 

Ottava F 3/F5 

Oboe 2 

10 10 10 10 65 

10 10 10 10 65 

10 10 10 10 65 

Battimento - 1 

Ring =2-1 

Ottava F3/F5 

Electric Trumpet 

7 7 7 10 17 

10 11 11 11 65 

12 12 12 11 17 

Battimento = 16 

Ring =2-1 

Ottava F3/F5 

Sintetizzatore 3 

2 2 15 1 37 

2 2 15 1 37 

Battimento = 10 

Ring =2-1 

2 2 15 1 37 


Ottava F3/F5 
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GP50A E GP50S 



le piccole stampanti per 
tutti i computer 








Piccole e com¬ 
patte dalle pre¬ 
stazioni grandie 
generose, le 
GP50A e GP50S 
sono realizzate 
con standard pro¬ 
fessionali a misura 
di Personal e Home 
computer e si impongono quale soluzio¬ 
ne ottimale per gli usi hobbystici più di¬ 


sparati a 
costi in¬ 
credibil¬ 
mente 
sorpren¬ 
denti. 

attenzione meritala 
GP50S, stampante direttamente inter¬ 
facciata verso i computer Sinclair ZX81 e 
Spectrum. 


_ 


Caratteristiche: 

• Stampante ad impatto a matrice di punti 
da 46 colonne (32 colonne versione 
GP50S) 

• Matrice di stampa 5x8 (7x7 versione 
GP50S) 

• Percorso di stampa monodirezionale (da 
sinistra a destra) 

• Capacità grafiche con indirizzamento del 
singolo dot 

• Possibilità di ripetizione automatica di un 
carattere grafico 

• Velocità 40 caratteri/secondo (35 caratteri/ 
secondo versione GP50S) 


• Caratterizzazione: 12 cpi e relativo espanso 

• Interfacce: parallela Centronics (interfaccia 
Sinclair versione GP50S) 

• Alimentazione carta a frizione (largh. carta 
fino a 5”) 

• Stampa 1 originale e 1 copia 

• Set di 96 caratteri ASCII 

• Consumo 11W (standby) o 17W (stampa) 

• Livello di rumore inferiore a 60 dB 

• Durata di vita testa: 30 milioni di caratteri 

• Peso 1,5 KG 

• Dimensioni: 215 (prof.) x 250 (largh.) x 85 
(alt.) mm. 

• Nastro nero (standard); optionals: rosso, 
arancio, verde, blu, viola e marrone. 















Ve lo ricordate 
il famoso filo 
d'Arianna con tutti 
gli annessi e connessi? 
Teseo, il Minotauro, 
il labirinto? Ripassatevi 
la storia, perché... 


GAMES 


Arianna 





D ieci secondi, e Teseo deve im¬ 
primersi bene nella memoria 
tutto il percorso del labirinto, dal 
quale deve uscire, pena la vita. Be', 
per fortuna di vite ne ha cinque a 
disposizione... Oltretutto anche lui 
deve campare, pertanto guadagna 
500 dracme per ogni Minotauro che 
riesce a uccidere e 1.500 dracme per 
ogni labirinto che riesce a percorre¬ 
re senza ricorrere al filo d'Arianna. 


La difficoltà maggiore sta nel me¬ 
morizzare in pochi secondi il percor¬ 
so con 1 suoi trabocchetti, perché 
altrimenti cinque vite si dimostrano 
subito poche. 11 gioco finisce con la 
plurima morte di Teseo, e la bravu¬ 
ra consiste nell'aver accumulato un 
gran patrimonio da lasciare agli ere¬ 
di. 

Corredato di chiare istruzioni che 
compaiono a video con suono come 


di telescrivente, il gioco ha una bella 
grafica e un'originalità tutta sua, an¬ 
che per questo accostamento del 
computer a fatti "accaduti" migliaia 
di anni fa... 

Il programma_ 

Il programma si compone di tre 
listati. Il primo si occupa della pre¬ 
sentazione del gioco con le relative 
istruzioni (le pagine cambiano auto¬ 
maticamente) e al termine provvede 
a caricare il secondo listato che ser¬ 
ve a memorizzare i DATA necessari 
per la visualizzazione del labirinto. 
La linea 10040 carica automatica- 
mente il terzo listato che è il pro¬ 
gramma vero e proprio. 

1-5 predisposizione colori dello 
schermo, definizione del numero 
degli omini a disposizione e riman¬ 
do alla subrutine per l'indicazione 
dei tasti da utilizzare per il gioco. 
10—45 visualizzazione del labirinto 
per dicci secondi circa e sua spari¬ 
zione. 

50-1071 svolgimento del gioco con 
ricostruzione del labirinto ad ogni 
spostamento dell'omino e impedi¬ 
mento alla prosecuzione nel percor¬ 
so se questo avviene verso una dire¬ 
zione chiusa. 

20000-22010 indicazione del pun¬ 
teggio ottenuto e richiesta di una 
nuova partita. 


Listato 1 

INT. TESEO 



1 P0KE36879,25 PRINT"3MI 


21 

22 

23 

24 

25 

26 
2? 
23 

29 

30 

31 

32 

33 

34 

35 

36 

37 
33 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 


BATA'Till • ~T3 
DATA" 

DATA"“ER RAGGIUNGERE IL 
DATA " \IN0TAURU.■ I ESEO.. 

DATA"DOPO AVER STUDIATO PER" 
DATA"10 SECONDI LA NAPPA, " 
DATA"DEVE ENTRARE NEL DE- " 
DATA"DALU LASCIANDOSI DIE- 
DATA"TR0 IL FILO D'*RIANNA." 
DATA‘TONI VOLTA CHE INCUN- 
DATA-TRA UN TRABOCCHETTO, " 
PERDE 0NA DELLE 5 VITE" 
E DEVE RIPARTIRE DALLO" 
INGRESSO. 

-AGGIUNTO IL \IN0TA- " 
DATA"UR0, IESEO PASSA ALLA " 
DATA"SECONDA PROVA NELLA 
DATA"QUALE AVANZA SINO IN " 
DATA“FONDO AL DEDALO SENZA 
DA T A"ACCORGERSI DI AVERE 
DATA"DIMENTICATO IL FILO 
DATA"D'ARIANNA. *L RITORNO 1 
DATA"DEVE QUINDI PROCEDERE ” 
DATA"A TENTONI. 

DATA" 

DATA"HER OGNI \INOTAURO UC~" 
DATA"CISO GUADAGNA 500 
DATA"DRACME E PER OGNI PER-" 
DATA"CORSO SENZA FILO POR-" 
DATA"TATO A TERMINE, 1500 " 


DATA- 

DATA' 

DATA' 

DATA' 


51 DATA"DRACME. “OSI' DI SE- 

52 DATA"GUITO SINO A CONSUMARE" 

53 DATA"LE 5 VITE. 

54 DATA" 

55 DATA" I ,0* -T-I 73" 

66 DATA "CARICAMENTO IN CORSO 

999 READAt IFAt="«-"THENP0KE631,131 

P0KE198, 1 PRI NT " sW, END 

1000 GOSUB1026 

1001 0=0+1 IFU=21THENU=0 GOSUB2000 
PRINT’TT', 

1002 GOT0999 

1021 P0KE36878,15 

1022 P0KE36875,180 

1023 FORK=0TO5 NEXT 

1024 PQKE36878,0 

1025 RETURN 

1026 FQRL-1T0LEN<A$ > Ut=MI Dt<At, L, 1 ) 

IFUf="THENUt=CHRt(34 ) 

1027 PRINTUt, 

1028 IFMIDt<A$,L, DO" "THENuOSUBl021 

1029 FORJ=0TO50 NEXT 

1030 NEXT 

1031 P0KE36875,0 

1032 RETURN 

2000 TIt="000000" 

2010 GETAf IFTItC'000050"ANBA$="" 
THEN2010 
2020 RETURN 
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25000-25060 subrutine indicante 1 
tasti usati per lo svolgimento del 
gioco. 

Battitura 


vataggio di programma dal suo VE- 
RIFY per sicurezza e non dover ri¬ 
battere il programma perché è stato 
registrato male. 

Terminato il salvataggio dei tre 


listati, riavvolgete il nastro, battete 
SHIFT-RUN STOP, abbassate il 
tasto PLAY sul registratore, e il 
programma partirà automaticamen¬ 
te. ?????? 


Battete il listato 1 e salvatelo su 
nastro con il nome 1NT. TESEO 
Battete il listato 2, lasciate qualche 
secondo di spazio sullo stesso na¬ 
stro, e salvatelo con il nome DATA 
TESEO. Battete quindi il listato 3; 
lasciate ancora qualche secondo di 
spazio sul nastro e salvatelo con il 
nome TESEO. 

Sarebbe utile far seguire ogni sal- 


1 X=1 V=1 DX=1 DV= 1 

2 POKE 36878,15 


3 

4 

5 

Ì0 
20 
22 

29 

30 
35 
40 
45 

50 

51 
60 
70 
30 
300 

500 

501 
510 
550 
00 


SS=3b877 : 8=36876 


Listato 2 

DATA TESEO 


1 POKE 650,130 

2 POKE 56,28 POKE 


52, 28 


'JS 

fi J 


- 




3000 
30 1 0 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3200 
1 0000 
10010 
10020 
10030 
10040 


F OR1=7168 T 07168+55 
REflDD POKE I , li NEXT 
HO TA 255,255,255,255,255 
0, 0,0,0,0 , 0,0 , 0 
24 ,60,24,36,90,24,36, 36 
66,219,60,90,126,60,219,90 


5,255,255 


DRTR 

DATA 

DRTR 

DHTR 

DRTR 

DRTR 

DRTR 


129,195,90,126,90,60,60,24 


24,60,24 , 36 , 90 , 24,36,36 
64, 64,64 , 255,8,8 , 8 , 255 
FOR1 = 7424T0743 1 POKE 1,0 NEXT 
F'R I NT " nuWMttsItì TESEO MM" 

PRINT" BV M" 

PRIHT" ALBERTO LQBOVICHI " PRINT”S" 

POKE 198,7 P0KE631,76 P0KE632,207 P0KE633, 
13 P0KE634,82 P0KE635,213 P0KE636,13 


0M=5 

GOSUB25000 

POKE 36879,110 PRINTCHR*<5> POKE 36869,255 OOSUB10000 
POKE38420+X+22*V, 1 P0KE?700+X+22#V, 2 PRINT "SiSOII NI "Otl, "PUNTI "FU 
IF VC1THEN F‘OKE7700+X+22#V, 32 V=V+1 
GETAt- 

IFR$="L"THENPOKE7700+X+22*V,4 X=X~DX IFPEEK(7?00+X+22*Y)=0THEHX=X+BX 
IF R$="."THENPOKE 7700+X+22*V,4 V=V+DV IFPEEK<77O0+X+22#V >- 0 THENV=V-HV 
IF Rf=","THENPOKE 7700+X+22#V,4 X=X+DX: IFPEEK<7700+X+22*V> =OTHENX=X-DX 
IF fif= "P"THENPOKE 7700+X+22*V,4 V=V-DV IFPEEK(7700+X+22 ìKV)=0THENV= , t , +DV 
IFPEEKC7700+X+22*V>=3RNDGR=1THEN GR=0 GOSUB50B GOSUB10000 
IFPEEK<7700+X+22»V)=3THEN GOSUB500 
IFPEEK <77O0+X+22*V>=5RNDHM0=1THENP0KE7722,6 GOTO20 

IFPEEK<7700+X+22#V)=5THEN Gfi=l t'1M0=l PU=PU+500 P0KE7722,6 : X=1 V=1 GOSUB10000 
IFPEEK< 7700+X+22#V> =6THEN GR=0 MM0=8 PU*PU+1500 X=1 V=1 GOSUB10000 
GOT020 

0M*OM-l POKESS,135 POKES,135 FORT=1TO50O NEXT POKESS,0 POKES,0X=1 V=1 
IFOH=0 THEH GOSUB20000 
RETURN 

riM=0H-l POKE 36877,135 FORT=1TO500 NEXT POKE36877,0 X=21 V=19 IFOH=0THEN 200 


Listato 3 


TESEO 



560 RETURN 

60O POKE38420+X+22*V,1 RETURN 
999 GOT020 

1 0000 POKESS ,241• POKES ,241 F0RT=1T 0 1000 NEXT POKESS, 0 POKES ,0 
PRINT":»»" 

F’R I NT " 3@l5@flRRflRR00i“ill3L00i2@l“0 
PRINT" 3BC0@@@fl@R8AAfi0R@R@0Ctì 
F'R I NT " 3i000@@fi@RRRRR@flRflRfiR0 
F'R I NT " SiOOAOOÈÙHOAOH^OyAOSHU 
PRINT"a@fi0@00e0C@R0fleRRRfiRfì0 
F'R I NT " 3»CeR0A@fi@RRAfieflee@eR0 
PRI NT " 3«H0I50RRRRR@R00 @i?i2@@Ù0 


10001 
1 0002 
10010 
10020 
10030 

1 0040 
10050 
1 0060 
10O64 
10066 
10067 
10868 

10069 

10070 

10071 
20000 

2 1 000 
22000 
22010 
22020 
2500O 
25010 
25020 
25025 
25030 
25040 
25050 
25068 


|£@§Riì!0R0R£RRRRR@RRRRR 

i£@@e@@A@A@C@R@HRH@@R@ 

0RRRRRR®i£00R@il!Rij?0@0R® 

e@@R@@@@A0R@R@RRR0RC@ 

i£RRflRR0RRfìR@R@@l£@@eR@ 

@flàRi£RHRi£Ri£e0iSH0i£@i£C@ 

i£hhRRR@0@i£CRRRRRRRRhR 


@RRfìl£eHi£Ri£Ri£i£@fleRe@e@ " 
@i£@@i£0R0R0@@R@i£@@@@R | 3 " 
ecefieee@fiRACRRR@RflflAe" 
eC@RRRRRR0R0RlSR@e@ei£e " 
0@0RiI!Ri£R0ei£i£ReRRRRfìfì0 " 
@RRR@@@0@R0RRRRCI£@®@0 " 


F0RT=1T0655 POKE 38400+T,1 NEXT 

TI$="000000" 

IFTI$="0W0010"THEN10O69 
PRINT"flaa"TIt G0T010067 
IF GR=0THENF0RRR=1T0655 
POKE38881,1 P0KE38442,1 
RETURN 

FRI NT TKia HRI FRTT0"PU"PUNTI 
PRI NT " SWJOI RI PROVARE?(S/N > " 

GET R$ IF fl$="S"THEN RUN 

IF Rf = "N"THENF'RINT" 13" PRINT"3" 

GOT O22O00 

POKE 36879,25 PRINTTRB 1 ; 110) "TEI 
PRItirMXfiLTQ P" 

PRINT"«DESTRA L" 

PRINT"«SINISTRO , " 

PRINT"«BASSO 

PRINT"MBttURKF 1 PER GIOCARE)" 

GET S$ IF S$="«"THEN RETURN 
GOT025050 


POKE 38400+RR,6 NEXT 
P0KE7767,0 


END 


TASTI SONO 
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Spectrum 

48 K 



games 


Sono diversi ma simili, 
piccoli piccoli e tanti tanti... 
Tenere in ordine i propri 
componenti è, per ogni 
amatore, un sogno per il tutu 
e un incubo per il presente. ^ 
Ma una soluzione adesso c e.. 



Dove avrò me 


S cagli la prima pietra chi non si e 
mai trovato ad acquistare un 
componente scoprendo, tempo do¬ 
po che l'aveva già in casa. O chi non 
ha mai passato qualche mezz ora 
frugando con furia selvaggia tra sca¬ 
toloni e scatolette, cercando invano 
un integrato che doveva esserci. Ge¬ 
stire un magazzino componenti, an¬ 
che se di dimensioni ridotte, da hob¬ 
bista esordiente, non è infatti una 
bazzeccola. 

Affidare la fatica a un metodico 
computer dalla memoria di terrò e 
senza dubbio la soluzione migliore. 


ma i molti programmi gestionali di¬ 
sponibili sul mercato peccano quasi 
sempre di troppa genericità e com¬ 
plessità d'uso. Component Supcrvi- 
sor è invece un potente programma 
specifico, che consente di gestire 
con facilità e con la massima defini¬ 
zione logica e grafica un file di dati 
contenente fino a 714 componenti 
elettronici. Ogni componente e ca- 
ratterizzabile con codice di riferi¬ 
mento e indirizzamento predei mi¬ 
to. con definizione alfanumerica c 
simbolica (punteggiatura grammati¬ 
cale compresa) fino a nove caratteri 


Listato 1 


I? liti COMPONENTI gueeRUISOR 

22 REM _- TTnD BQGR DI LANCIO 

?2 ggj a g, T T^ U b5~oxlcouoouE 


il papeR a_ eukbtN u 

INT 81, QHJLJLi INh 4 



-" ; RT 1 ,S; 

?g 5 S EN 6ÌEP S V? E a0 IS ÌÌEP'.1.S3. 6 E 
EP .1,37_NEaT n QflD 


J 


03 PRIJSE 30 


e con un quantitativo di stock dispo¬ 
nibile a magazzino (fino a un massi¬ 
mo di 999 pezzi per ogni componen¬ 
te inserito, con possibilità di dupli¬ 
care o di ripetere più volte una stes¬ 
sa definizione per quantitativi supe¬ 
ri programma come questo, che 
consente di avere sott’occhio la si¬ 
tuazione istantanea di un magazzino 
di componenti elettronici, è utilissi¬ 
mo per tutti gli hobbisti che, avendo 
a disposizione molto materiale, 
spesso non sanno più se possiedono 
o dove andare a reperire un deter¬ 
minato componente. Oltre alla ca¬ 
talogazione c'è la possibilità di eli¬ 
minare articoli indesiderati o obso¬ 
leti e di modificare gli stoccaggi di¬ 
sponibili attraverso flussi di input 
(immissioni di nuovi quantità deri¬ 
vanti da acquisti) o di output (prele¬ 
vamenti per vendite o per utilizza¬ 
zioni). . 

Tutto avviene in modo compieta- 

mente automatico, sotto la guida di 
utili messaggi e senza perdite di 
tempo; le opzioni sono a prova di 
errori (voluti o casuali), cosicché di¬ 
viene impossibile creare disastrose 
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sovrapposizioni di dati o combinare 
pasticci durante la registrazione dei 
file. Ogni file viene infatti codificato 
e riconosciuto in base al momento 


temporale nel quale viene salvato. 

Il video è gestito con l'uso di mi- 
crocaratteri in altissima risoluzione 
grafica, perfettamente leggibili, co¬ 
munque, anche su normali cinesco¬ 
pi TV Naturalmente il programma 
può girare solo su Spectrum 48 K o 
adeguatamente espansi: il solo file 
di riferimento che contiene i dati 
occupa, per esempio. 10 K di RAM. 

Il programma 

E - composto da tre file indipen¬ 
denti e consecutivi che sono, nel- 
Tordine di carica: sottoprogramma 
di lancio (Listato I ). master (Listato 
2) e file di riferimento (Listato 3) . 
Ecco, per ognuno di essi, le princi¬ 
pali caratteristiche di linee e subrou¬ 
tine. 

Sottoprogramma di lancio 

20-26 inizio del sottoprogramma; 
dati preliminari; predisposi, video 
27-28 data set per il caricamento 
dei file successivi 

Master 

100— 107 dati preliminari; predispo¬ 
sizione video 

109-315 istruzioni per il caricamen¬ 
to del file di riferimento; messaggi 
di aggiornamento; settaggio grafico 
510—545 menù principale delle op¬ 
zioni disponibili 

802—872 menù delle videate dispo¬ 
nibili 


1001 - 1092 subroutine per nuovi in¬ 
serimenti di componenti 
2001—2092 subroutine per la can¬ 
cellazione dei componenti 
3001—3110 subroutine per l'input di 
stock dei componenti 
4001 -4110 subroutine per l’output 
di stock dei componenti 
5010—5099 subroutine di fine lavo¬ 
ro; registrazione e verifica del file di 
riferimento 

6000— 6010 subroutine di verifica di 
emergenza 

8510-8599 memorizzazione delle 
variabili permanenti del progr. 
9104—9190 subroutine di predispo¬ 
sizione di attesa per variazioni deci¬ 
sionali 

9204— 9299 subroutine di determi¬ 
nazione del codice del componente 
da chiamare 

9301-9399 layout grafico della vi- 
deata richiamata 

9410—9499 data set sonoro del mes¬ 
saggio "FERMA IL NASTRO" 

95Kl—9599 subroutine per la stam¬ 
pa centrata dei titoli e dei messaggi 
9610-9699 subroutine di CLS par¬ 
ziale del video 

9705-9780 subroutine di stampa 
dei messaggi e delle schermate con 
microcaratteri 

9832-9895 data set per la determi¬ 
nazione dei microcaratteri grafici 
9983-9989 data set grafico del mes¬ 
saggio "FERMA IL NASTRO" 
9994-9999 data set di copyright 


Listato 2 


100 REM —m 

101 REM COMPONENTE SUPEROISOR 

102 REM LISTATO 2 

103 REM MASTER 

104 REM 1985 by DISCGUOGUE 

105 REM 

106 POKE 23693,15 BORDER 1 CL 
5 POKE 23562,1 POKE 23658.255 

107 GO SUB 9980 GO SUB 8500 G 
0 SUB 9400 

109 PAUSE 72: CLS PLOT 3,19 
DRAUI 249,0 DRhUI 0.129 DRAU -24 
9,0 ORflU 0,-129 PLOT 3.156 OR 
AtJ 249,0 ORALI 0,15 DRAÙ -249,0 

ORAU 0.-15 

110 PRINT AT 21,0. INK 0;g$ GO 
SUB 9990 DATA 1,5.1.5.1,1,1,1, 

1,5 RESTORE 110: FOR n=l Tu 9 S 
TEP 2: READ a READ b BEEP a/IO 
,0 BEEP b/10.4 NEXT n 

300 LET XX=62: LET gq=9: LET i= 
7: LET b£ =1 

301 LET S$="CARICARE IL SUPPORT 
0 DI RIFERIMENTO”: GO SUB 9700 

302 POKE 23743.80 FOR n = l TO 2 
7 BEEP .001,80 PAUSE 2 NEXT n 

LOAO ”0X1” DATA b$() LOAD ”CX 
2” DATA CO POKE 23743,83 

303 LET XX=93: PRINT AT 20.0,04 


FOR n =1 TO 6 BEEP .1.40+0*2 
NEXT n LET £ $ ="FERMARE IL NASTR 
O” : GO SUB 9700 GO SUB 9400 F‘A 
USE 30 PRINT AT 2O.0.n$ 

304 LET XX=20 LET qq=162 LET 
S$= RIFERIMENTO AGGIORNATO ALLE 
ORE 00.00 DEL 00.00.0000” 

305 DATA 33,34.36.37.43.44.46,4 
7,49,50,51,52 RESTORE 305 FOR 
n =2 TO 13 READ ì0 LET S $ i ìni =b 
$(n,460) NEXT n 

306 GO SUB 9700 PAUSE 30 

313 LET XX=73 LET yu=9 LET £$ 
=■PER INIZIARE PREMERE ””ENTER”” 

GO SUB 9730 PAUSE 30 

314 LET K=CODE INKEY $ IF K = 13 
THEN BEEP .1,33 PRINT AT 20,0,0 
$ GO TO 320 

315 BEEP .001,48 GO TO 314 

510 LET iOC=3 LET r=5 : LET i =7 
LET b f = 1 LET S4 = ”MENU PRINCI 

PALE GO SUB 9500 LET inC=2 L 
ET i=5 LET b f=0 LET £$= 1 .... 

NUOUI INSERIMENTI” GO SUB 9500 

511 LET £ $ = ” 2 . CANCELLA 

ZIONI GO SUB 9500- LET £$ = ”3 . 

. INPUT” GO SUB 9 

500 

512 LET £$ = ”4 . 0 

( continua) 
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Dove avrò messo il diodo... 


UTPUT": GO SUB 9500 LET S$ = "5 . 
........ . FINE LAUORO": GO SUB 9 

500 

513 LET S =1 LET XX=183: LET i = 
7 LET S $ = " SCEGLIERE L'OPZIONE"; 

GO SUB 9700 

514 LET k =CODE INKEY$ IF k>48 
AND k <54 THEN GO Tu 540 

519 LET £ =S +1 IF 5 >10 THEN LET 
£ =1 

520 BEEP .001.5*5: Gu TO 514 

540 IF pz=l THEN PRINT AT 20,0, 

n $ 

541 IF PZ=0 THEN PRINT AT 20,5; 
n$ il TO 27) 

543 LET oP = K. -48 PRINT AT 6+OP* 
2,4. OUER 1; BRIGHT 1, INK 6, n $ i 
1 Tò 24) FOR n = 1 TO 47 

544 BEEP .001.60 NEXT n PRINT 
RT 6 + 0 p *2.4 ; OUER 1, INK 5,n$ i 1 
TO 24) 

545 GO SUB 9600 GO TO 600 
802 IF PZ=0 hND OR<>5 THEN LET 

PZ=1; GO TO 371 

303 IF 0P=5 THEN PRINT RT 20,0; 
n$ GO TO 5000 
805 LET V1=3 : LET V2 = Vl 

310 LET in C =1 LET f =4 : LET ì =7 
LET bf =1. LET £$="UIDEATE DIS 

PONIBIL I ‘ GO SUB 9500 LET ì=5 
LET b r =0 LET 5 $ = "01. .RESISTENZ 
E FINO H 10 K OHM"; GO SUB 9500 

311 LET £$ = "02 ... RESISTENZE OLT 
RE 10 K OHM" GO SUB 9500 LET £ 

$ = "03.CONDENSATORI CERAMIC 

I": GO SUB 9500 LET £$ = "04. 

CONDENSATORI POLIESTERE" GO SUB 

9500 

812 LET £$ = "05 ....... CONDENSATO 

RI TANTALIO"; GO SUB 9500 LET S 
$ = "06. .CONDENSATORI ELETTROLITA 

I"; GO SUB 9500 LET £$ = "07. 

.DIODI"; GO SUB 

9500 * 

313 LET £$ = "08.TRANS IST 0 

RS E TRIACS": GO SUB 9500 LET £ 

$ = "09.INTEGRATI C-MO 

S": GO SUB 9500 LET £$ = "10. 

.INTEGRATI TTL " : GO SUB 

9500 

814 LET £$ = "11.'. ALTR 

I INTEGRATI": GO SUB 9500 LET £ 

$ = '12.INTERRUTTORI E PULSANT 

I" GO SUB 9500 LET £$ = "13. 

.TRASFORMATORI E BOBINE": GO SUB 

9500 LET £$ = "14.A 

LTRI ARTICOLI" GO SUB 9500 
315 LET XX=126 LET i =7 ; LET £$ 
="COMPORRE IL NUMERO DELLA UIDEA 
TA" GO SUB 970O 
829 LET £=1 

330 LET k =CODE INKEY $ IF k>47 
AND K <50 THEN LET vl=k-4S BEEP 
.1,33 GO TO 840 
831 LET £=£+1 IF £>10 THEN LET 
S = 1 

332 BEEP .001,£*5; GO TO 830 

340 LET k =CODE INKEY$ IF k>43 
AND k<53 AND V1=0 THEN LET v2 = k- 
48; BEEP .1,33: Gu TO 860 

341 IF k >47 AND k<53 AND Vl = l T 
HEN LET V2=k-4S; BEEP .1,33: GO 
TO 360 

353 LET £=£+1: IF s>10 THEN LET 
£ =1 

859 BEEP .001. £*5 GO TO 840 

365 PR INT AT 20,0 , n $ LET V ì =10 
* V1+ V2 PRINT AT 4+Vi,l, OUER 1, 

BRIGHT 1. INK 6 . lì $ ( 1 TO 30): Fù 
R H =1 TO 47 

366 BEEP .001.60 NEXT n PRINT 
AT 4 +vi .1. OUER 1; INK 5 ;n $(1 T 


0 3 0 ) 

869 LET 
U IDEATA 
TR $ vi 

V2 : 

870 


872 
0 T 0 
1001 


GO 

GO 

GO 


X=0 LET !=5 LET £$=" 
" GO SUB 9700 LET £$=S 
GO SUB 970O LET £$=STR$ 
SUB 9700 
SUB 960O 

SUB 9300 GO SUB 9200 G 
OP *1000 
IF b$(Vi ,t 
GO TO 1090 

1010 LET XX =161 LET 
E LA DENOMINAZIONE" 

1019 LET b$ ( Vì , t TO 
XX = ex +9 LET y y = c y: 

T £ = 1 


TO t +3) < >q$ THEN 


£$="INSERIR 
GO SUB 9700 
t +8) =q$ LET 
LET n =0. LE 


INKEY $ 


THEN 

NEXT 


FOR f =1 
GO T 


f 


AND 
k =95 


INUER 
£>10 THEN LET 


1020 LET k = C 0 D E 

1021 IF k = 13 OR n =9 
TO 3 BEEP .2, f *3 

0 9100 

1022 IF K =32 OR i k >33 AND k <42) 
OR ( k >43 AND k <47) OR ik>47 
k <59) OR ( k >63 AND k<91) OR 

THEN GO TO 1040 

1023 IF k = 12 THEN LET XX=CX+9 6 
EEP .1,33 INUERSE 1 FOR f=yy+4 

Tn gg STEP -1 PLOT XX, f DRAU 
52.0'‘BEEP .01,50 NEXT f 
SE O 60 TO 1019 

1038 LET £=£+1 IF 
s — 1 

1039 

1040 
CHR $ 

1041 
1050 

1090 

CURATO ! 

1091 FOR n=l TO 16 
n *5 NEXT n PRINT 

1092 GO TO 9100 

2001 IF b $ (Vi ,t TO t+8)=q$ THEN 
GO TO 2090 

2002 LET XX=CX+9 LET yy=cy LET 
n = 0 : LET £ =1 

2050 INUERSE 1 FOR r=yy+4 
STEP -1 INK 7. PLOT XX , f 
52,0 BEEP .01.50 NEXT f 

2051 FOR f=gg+4 TO yy STEP 


BEEP 

BEEP 

k 

LET 

LET 

LET 


, 001,£ *5 GO TU 
,1,33: LET b$(V ì 


1020 
, t +n ) = 

9700 


OC 


£$=CHR$ k GO SUB 
H=n +1: G0 Tu 1020 
X x =139 LET £ $ = "GIA 
'" GO SUB 9700 

BEEP .04,20- 
AT 20,11;u $ 


TO yy 
DRAU 


-1 

0 


I 

16 


NK 6 PLOT XX+55,f: DRAU IO, 

EEP .01,57: NEXT f 

2055 LET b$ (Vi ,t TO t+8)=q$ LET 
C (V i ,C O) =0 

2089 GO TO 9100 

2090 LET XX=165 
0 INESISTENTE 11 

2091 FOR n=l Tu 
n *5 NEXT n PRINT 

2092 GO Tu y!00 

3001 IF b $ (Vi ,t TO 
GO TO 3090 

3002 LET yy =9 LET 
O ) 

3003 IF V a<1 THEN 
301O LET X X =171-4 *LEN STR$ V 3 L 
ET £$="INPUT MASSIMO " GO SUB 
9700 LET £ $ = STR$ va GO SUB 970 
0 

PLOT 238.3: DRAU 14, 
DRAU -14.0 DRAU 0, 
TO 4 BEEP .1,40 NE 


LET 5 $ = "ARTICGL 
GO SUB 9700 
BEEP .04,20- 
AT 20,11 ; U$ 

t +8) =q$ THEN 

V a =999 - C (Vi , C 

GO TO 3093 


3015 INK 4 
0 DRAU 0,3 
-8 FOR n =1 
XT n 

3019 LET n=0 LET £=1 
0 LET gy = 10 LET i=4 

DIM h $( 3 ) 

3020 LET k =CODE INKEY$ 

3021 IF k = 13 THEN BEEP 
TO 3096 

3022 IF k > 47 HND k<59 AND 
EN LET k = k-48 ; GO TO 3040 

3023 IF k = 12 THEN INUERSE 


LET X X =24 
LET £ r=n 


1,33: GO 
n <3 TH 


FOR 


(continua) 
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File di riferimento 

10-17 inizio del generatore di file; 
dati preliminari; memorizzazione 
dell'area di memoria a matrice 
18—20 data set per il salvataggio e la 
verifica del caricamento del file di 
riferimento originale vergine 

Come impostare 
il programma 

Dopo che il nastro di carica è sta¬ 
to fermato, come richiesto da un 
messaggio a tutto video, il computer 
si predispone per la carica automati¬ 
ca del file di riferimento su cui ese¬ 
guire tutte le operazioni. Se però il 
supporto è quello originale, non è 
necessario fermare il nastro: dopo 
un breve spazio vuoto, infatti, inizia 
automaticamente la carica del file 
proprio mentre il computer, dopo 
varie operazioni grafiche prelimina¬ 
ri. si predispone alla carica del sup¬ 
porto (con un apposito messaggio e 
musichetta di avviso). Si procederà 
in questo modo la prima volta che si 
userà il programma, e poi in tutti 
quei casi in cui si utilizzerà il file 
originale per creare nuovi cataloghi 
di componenti. 

Naturalmente, poi, si procederà 
modificando e riaggiornando di vol¬ 
ta in volta dei file già caratterizzati, 
detti appunto FILE AGGIORNA¬ 


TI poiché contengono articoli e dati 
precedentemente inseriti (non sono 
dunque vergini). Nella maggior par¬ 
te dei casi, poiché la disponibilità di 
ogni supporto di riferimento con¬ 
sente di gestire ben 714 componenti 
(14 gruppi di 51 voci), sarà necessa¬ 
rio crearne uno solo, per poi modifi¬ 
carlo ed eggiornarlo di volta in vol¬ 
ta. Nel caso di particolari esigenze 
(magazzini con migliaia di articoli), 
comunque, basterà creare più file, 
essendo la memoria di massa otteni¬ 
bile praticamente illimitata. E' bene 
comunque che ogni file sia salvato 
su una propria cassetta, al fine di 
evitare catastrofiche sovrapposizio¬ 
ni, o perdite di tempo nella ricerca 
di un particolare blocco; conviene 
quindi utilizzare cassette CIO che 
potranno contenere due file, uno 
per lato, sfruttando la doppia pista 
di nastro disponibile. 

Quando si caricano dei file ag¬ 
giornati è allora necessario, dopo la 
comparsa dell'apposito messaggio, 
fermare il nastro e caricare la casset¬ 
ta relativa al blocco desiderato. La 
carica avviene automaticamente e. 
dopo circa un minuto, in un apposi¬ 
to riquadro nella parte superiore del 
video appare un messaggio con le 
caratteristiche del file caricato. Nel 
caso di un file originale si avrà "RI¬ 
FERIMENTO Aggiornato 


ALLE ORE 00. 00 DEL 00. 00. 
0000", nel caso invece di un file già 
caratterizzato le cifre si riferiranno 
ai dati temporali di quando il file era 
stato salvato; ogni volta che si fini¬ 
sce un lavoro, infatti, un’apposita 
routine chiede, prima della registra¬ 
zione. di comunicare ì relativi dati 
temporali di codificazione. 

A questo punto il computer, con 
un apposito messaggio (anche sono¬ 
ro) di attesa, aspetta l’ENTER per 
iniziare il vero e proprio lavoro di 
gestione dei dati caricati. Subito do¬ 
po viene proiettato a tutto video il 
menù principale, che consente di 
scegliere, con i tasti da 1 a 5, le 
opzioni disponibili: nuovi inseri¬ 
menti. cancellazioni, input, output 
e fine lavoro. Selezionando una del¬ 
le prime quattro (quelle operative 
che modificano i dati del file carica¬ 
to) si procederà poi a comporre il 
numero (da 01 a 14) della videata a 
cui ci si vuol ricondurre. Il menù 
delle videate disponibili viene mo¬ 
strato subito dopo il menu principa¬ 
le (figura 1) . 

Opzione 1: 
nuovi inserimenti 

Si richiama dal menù principale 
con il tasto 1 e serve a inserire nuovi 
componenti, ovviamente caratteriz- 



Resistenze fino a 10 K0HM 


Resistenze oltre 10 K0HM 


Condensatori ceramici 


Condensatori poliestere 


■x_ 

+ 

5 

— HT 


Condensatori tantalio 

w\ 

♦ 

6 

— ►nr 


Condensatori elettrolitici 


7 


Diodi 

- 8 


Transistore triac 

► 9 


Integrati C Mos 

► 10 


Integrati TTL 

•In 

1 Altri integrati 

► 12 


Interruttori e pulsanti 

► 13 

1 Trasformatori e bobine 


Figura 1 


I 4 1 — H 141 — Altri articoli 
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Dove avrò messo il diodo. 


f =14- Tu 
DRAU 10 
INVERSE 
3024- LET 
S =1 
3025 

3040 

3041 
K ' - - - 

3050 LET o=n+l 

3090 LET XX=lto5 
0 INESISTENTE ! 

3091 FQR n = 1 Tu 
n *5 


10 STEP -1 PLOT 240 , f 
0 BEEP .01.57: NExT t 

•?U?1- T IF 3 S>?0 THEN LET 


BEEP .001,5*5 GO T0 3020 

LET h$(0+l)=5TR$ K -t-STPt 
LET XX =240+0*4: LET 
GO SUB 9700 BEEP 

GO TU 3020 __ 

LET •=, $="ART lUUL 
i». GO SUB 9700 
16 BEEP .04,20- 
ht 20,li; u* 


NEXT n PRINT 

3092 GO TO 9100 _ 

3093 LET XX=164: LET S$ = 

L MASSIMO «999) . bO SUB 

3094 FuR 0=1 TO Ito Bt ti¬ 
ri *5 NEXT n PRINT hT 20 

3095 GO TO 9100 

3096 LET SfsUflL h». IF * 
N LET K. =12 bO TO_3023 _ 
3093 INVERSE 1 FOR t =ìt' 


'STOCK A 
9700 
.04,20- 
, 11 ; U $ 

r > v a THE 


6 TO 3 


LET 


FP -1: PLOT 238,f: .DRAU 14,0 
FP 01,32-f NEXT f 

3099 LET C(Vi,CO)=999-va+3. 

«. $ = ST R $ C (Vi ,C0) r , FD -, t 

3100 FQR f=cy+4 TU ,.y oTEP 1 I 

NK 6 PLOT CX +64 , t : DRHUI ìu , t 
FEP .01.57: NEXT r 

3101 INVERSE 0_ LET ><XjLX V g-4jL 
EN s$ LET yy=LM LET ì -o 

3110^BEEP .2,30 j»0 "TO I,^ 0 thE m 

4.001 IF b$U/i,t TO t +3-' -45 1 nciM 

4002°LE? 9 Su= 9 LET V a = C (Vi ,C O) 
4003 IF va<1 THEN GU TU 4093 
4010 LET XX =loto-4*LEN STR$ 

E T -■$= "OUTPUT MASSIMO 


6u 


ÌUB 


LET s $ =STR $ va 


PLOT 236,8 


-14,0 

BEEP 


9700 

00 

4015 INK 4 

0 ORAU 0,8 DRAU 

-8 FOR 0 = 1 TO 4 

4 019 LET n =0 LET S=1 

0 LET y y = 10 LET i=4 
r% tm h $ >' 3 ) 

4020 LET K=CODE INKEY$ 

4021 IF K = 13 THEN BEEP 

. X' = '2^IF ” K > 47 AND K. <59 AND 

ÉS‘lET H.K-is- GO TO Ì04O 

409^ IF K=12 THEN INVERoE 
i=U TO 10 STEP -1 g^' T 
DRAU 10,0 BEEP .01,5. 
INVERSE 0 GO TO 4019 

4024 
S = 1 

4025 

4040 

4041 
K : 


0 SUB 9' 


DP.AU 14, 
DRAU 0, 
.1,40 NE 

LET XX =24 
LET a r=n 


1,33: GO 


n <3 TH 

1 FOR 
240 , f 
NEXT f 


LET i =S+ì ÌF 5 >10 THEN LET 

BEEP .001,5*5 GO TU 4020 
let h$<n+i>*STRS K 5TP4 

0 b E 5uS x 5fSi tn jì 5 p L .y* 

tmt ti? sr.tuWsi 

4091 E FOR T n=l E TO 16 BEEP .04,20- 
^l 1 NEXT n PRINT AT 2©,ll,u$ 

4092 bO Tu 9100 T * _,, ppT ICOL 

4093 LET XX = Ip 5 ^LET SSg (j gRTICOL 


BEEP .04,20- 

U $ 


IF sr>va THE 


Q NON DISPONIBILE' 

4094 FOR n =1 TO 16 __ 

n *f NEXT n: PRINT hT 20,11 

4095 GO Tu 9100 

4096 LET 5f=V0L h$ - 

m i FT k — VP GO Tu 40cj _ 

4093 INUERSE 1 F0R r L-h 6 re 
FP -1 PLOT 238, f: .DRHU 14,0 6E 

EP ,01,32-f NEXT f __ . pT 11- 

4099 LET C(V1,CO)=Va-Si LET -$- 

5TR $ C(Vi,CO) 


^°1 f p£o c isrS5 b s«:ì » 

410iÌnv!p.SE N | AT LET XX=CX+76-4|L 

EN a $ LET yy=cy: LET i=to bO SU 

°110 0 IeFP .2,3© GOTO 9100 

F010 INK 4 PRINT HT 3,4, ■ 

. ", AT 9,2; 

5011 LET be =0 : LET yy=91 LET i = 

5015 DATA 18, Aq M ^rnSo" ' " 

2 . "DATA”,106 , MEoE ,130, hhnl 

8§?I°?§r 5 SS xfe ig^T=g 0 a ; B gi? D . 

i:3F RE S C EX^n J INK^S ^ ^ 

5017 LET fc=32:,FOR e=l TO 14 LE 
T b$ (e .460.1 = NP v I - _ , 

-l 18 IF E pi=è = THEN E LET's$=_INSERIR 
È 1 ; DATI E PREMERE ""ENTER : G 

! 0 Ìs B lIt 0 ?,-=1 GO SUB 5090 IF P 
* ,,S E !P (hiaoR J ,:I?*7 0 PND K<58) 

4 M ù xV i lt a T V5SH G ?B!S? |?!|, COD 

" " NEXT 9 LET pi =1- bU IU tot j. 

èr ,-s DCC O Cì l7t "S Fi l/’l G U TU 5 0 d 1 

= t ^n IITMT’AT"8 GODE ì $ ( C C ) -100• 

IL NASTRO E PREMERE UN TASTO": G 

5041 B LET 0 ?=CODE INKEYS *< >0 

THEN GO TO 5043 

5,042 GO TO 5041 ___ T 

5043 PRINT AT 20,0,n| FOR L-4 T 

0 lo: PRINT AT K,1 , 0 $ <1 TO oL. 

5050 POKE 23736 ,nn:_SAVE uXl ,,D 
STA b$ f) POKE 23730 . nn. ohVE u 
X2 DATA CO GO SUB 9990 

[25 Cjìi^ 0 LET s $ = " RIRUVOLG 

ERE^IL E NA:=.TRO'E PREMERE UN_THtoTu 
PER LA VERIFICA" GO SUB 9700 

5053 LET K. =CODE INKE'i $ IF Kn.u 
THEN GO TO 5055 

5054 GO Tu 5053 r _ cr , -i -s 

5055 PRINT AT 20,0,0$ BEEP .1,0 

5060 POKE 23743,60 ..VERIFY "uxl ^ 
DATA b$ ( )^ VERIFV La2 DhTh - 

5070 LET XX= 0 LET i$ = VERIFI_H 
ESEGUITA, TUTTO U.K. : bU SUB 2, 

5030 FOR n = - 4 TO _ 10 BEEP -g^0 + 
33 BEEP .02,0+36 NExT n RhLKE 
120 PRINT AT 20,0,0$ bO TO -U 

5095 PRINT fiTB.COOE 
0. FLASH 1, -hT o,UUDE iS(ti) 
100, FLASH 0,CHR$ K 

5096 LET b$(cr,4t'0)-LHR$ K G q 

5099 LET i. i = C i +1 P11 h .i,-'-. 

6000”POKE 23743,83 GO SUB 9990 
6010 GO TO 500 
3510 LET 0$ = ", i; l£T g$ = „ 


(continua) 
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zati da un nome, una sigla o una 
dicitura di riconoscimento. Una vol¬ 
ta richiamata la videata su cui si vuo¬ 
le operare, rimane visualizzato sul 
fondo un messaggio (utilissimo pro¬ 
memoria!) col numero selezionato c 
viene proiettata tutta la videata at¬ 
traverso una serie di numerini az¬ 
zurri (compresi tra 01 e 51 ). che so¬ 
no i codici di indirizzamento. 

Un altro messaggio promemoria 
appare componendo il codice nel 
quale si vuole registrare il compo¬ 
nente. e poi il messaggio ' INSERI¬ 
RE I.A DENOMINAZIONE" indi¬ 
ca che è possibile inserire il nome o 
la sigla del componente. Ogni deno¬ 
minazione può contenere fino a no¬ 
ve caratteri (numerici o alfabetici) o 
simboli particolari. E' possibile in¬ 
serire direttamente dai relativi tasti i 
caratteri numerici o alfabetici, men¬ 
tre i simboli particolari (segni di 
punteggiatura, OHM, pico. nano, 
micro e milli) vanno inseriti tramite 
simboli grafici secondo lo schema di 
riferimento (figura 2) Per quanto 
riguarda la punteggiatura gramma¬ 
ticale, è disponibile persino il sim¬ 
bolo %. molto utile nella registra¬ 
zione di tolleranze (per resistenze, 
condensatori eccetera) . 

A ogni inserimento verranno 
stampati con caratteri bianchi, ac¬ 
canto al codice prima selezionato, i 
caratteri via via inputati. Con 
BREAK SPACE si può saltare di 
un posto a destra senza stampare il 
carattere, lasciando quindi uno spa¬ 
zio vuoto; è anche possibile correg¬ 
gere eventuali errori di inputazione 
semplicemente premendo CAPS 
SUI ET + 0 (funzione DELETE) . 
L'articolo va definitivamente regi¬ 
strato nel file con un ENTER di 
conferma; se però si inputano tutti e 
nove i caratteri l'accettazione avvie¬ 
ne automaticamente, sen/a bisogno 
di premere ENTER 

Una volta confermata la denomi¬ 
nazione un'apposita routine di atte¬ 
sa consente di scegliere tra quattro 
possibilità: NESSUN CAMBIO (si 
continua con altri inserimenti sulla 
stessa videata) ; CAMBIO VIDEA- 
TA (si torna al menù delle videate 
disponibili) ; CAMBIO OPZIONE 
(si torna al menu principale, rima¬ 
nendo però sulla stessa videata); 
CAMBIO TOTALE (si torna pri¬ 
ma al menù principale e poi a quello 
delle videate) . Ouesti quattro mes¬ 
saggi si susseguono sullo schermo, e 


la scelta si effettua premendo un ta¬ 
sto qualsiasi quando è presente 
quello desiderato. Poiché il pro¬ 
gramma è protetto da errori, se si 
sceglie un codice che ha già un arti¬ 
colo inserito appare il messaggio 
"GIÀ' OCCUPATO!!!". 

Opzione 2: 
cancellazione 

Richiamabile dal menu principale 
con il tasto 2. consente di cancellare 
articoli precedentemente registrati 
selezionando semplicemente il codi¬ 
ce (ovviamente compreso tra 01 e 
51) dell'articolo da eliminare. In ca¬ 
so di errore (cancellazione di un 
componente mai registrato) compa¬ 
re il messaggio "ARTICOLO 1NE- 
SISTENTEÌ!!". Alla fine diviene 
anche qui operativa la routine di at¬ 
tesa che consente di cambiare videa- 
ta e/o opzione. 

Opzione 3: 
input 

Si richiama dal menù principale 
con il tasto 3 e si usa per inserire 


TABELLA INSERIMENTO 
CARATTERI GRAFICI 


COMANDI 

INPUT 

CARATTERE INSERITO 

0 9 

0 9 

0 9 

carattere 

numerico 

A Z 

A. Z 

A Z 

Carattere 

alfabetico 

Break 

soace 


Spazio 

vuoto 


Symbol 
shill • 0 

_ 

fi 

OHM 

Symbol 
shilt * 1 

<§> 

P 

PICO 

Symbol 

shift <• 3 

# 

n 

NANO 

Symbol 

shifi * 4 

S 

A 

MICRO 

Symbol 

shilt * fe 

& 

m 

MILLI 

Symbol 

shift ♦ M 

■ 

• 

PUNTO 

Symbol 
shift ♦ N 

9 

9 

VIRGOLA 

Symbol 

shilt ♦ Z 

■ 

• 

DUE PUNTI 

Symbol 

shift • P 

II 

il 

VIRGOLETTE 

Symbol 
shift * 7 

• 

• 

APOSTROFO 

Symbol 
shift * 5 

% 

% 

PERCENTO 

Symbol 

shift ♦ S 

( 

( 

PARENTESI AP 

Symbol 

shift * 9 

) 

) 

PARENTESI CH 

Symbol 

shift ♦ J 

- 

- 

LINEETTA 


Figura 2 


nuovi stock di componenti già inse¬ 
riti Il numero massimo gestibile è 
999; nel caso di stock a consistenza 
zero, una routine intelligente con¬ 
sente la stampa della sola denomi¬ 
nazione dell'articolo. Prima di inse¬ 
rire la quantità relativa a un articolo 
selezionato, un apposito messaggio 
mostra qual è il massimo input pos¬ 
sibile. Se, per esempio, sono dispo¬ 
nibili a magazzino 530 transistor BC 
208 e ne vengono acquistati altri 
820, non è possibile inpulare l'intera 
quantità perché il totale, 1.350, su¬ 
pererebbe le 999 disponibilità; in 
questo caso appare allora il messag¬ 
gio "INPUT MASSIMO: 469". Si 
deve scegliere a questo punto se in¬ 
serire solo 469 pezzi o se creare un 
nuovo articolo (opzione 1) con la 
stessa denominazione (BC 208) e 
con le 999 disponibilità tutte libere: 
è quindi molto semplice ovviare a 
qualsiasi problema legato alla di¬ 
sponibilità di stock 

La determinazione della quantità 
da inputare avviene inserendo il nu¬ 
mero in un apposito quadratino ver¬ 
de, a destra in basso. Prima di con¬ 
fermare Pinserimento con ENTER 
è anche possibile correggere il nu¬ 
mero tramite la funzione DELETE 
(CAPS SIIIFT + 0). Se. data con¬ 
ferma con PENTER. l’input risulta 
maggiore del massimo consentito, 
l'inserimento non avviene e il com¬ 
puter rimane in attesa di un dato 
corretto. Anche qui. selezionando 
un input per un articolo non prece¬ 
dentemente registrato, compare il 
messaggio "ARTICOLO INESI¬ 
STENTE!!!". Alla fine, compare 
Formai familiare routine di attesa. 

Opzione 4: 
output 

Con il tasto 4 si può richiamare 
un’opzione che consente di preleva¬ 
re quantitativi di componenti già re¬ 
gistrati; un messaggio di OUTPUT 
MASSIMO comunica la quantità 
disponibile (e quindi il massimo pre¬ 
levabile) del componente richiama¬ 
to. Appare la scritta AR IICOLO 
NON DISPONIBILE" se lo stock è 
nullo, "ARTICOLO INESISTEN¬ 
TE!!!" se l'articolo non è catalogato. 

Se viene digitato un numero trop¬ 
po elevato, PENTER di conferma 
non sortisce alcun effetto: il compu¬ 
ter non effettua la sottrazione e ri¬ 
mane in attesa del dato corretto. La 
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Dove avrò messo il diodo 



5541 LET q$ = “ 


LET U$ = 

let 1 $ = "e f *31 .jnoqr 


LET yy=9 INUERSE 


8542 LET PZ =1 
t UVUlX " 

8599 RETURN 
9104 LET b|=0 

q 105^0 'HTh 204, "NESSUN ChMB IO ^20 
2 . "CAMBIO UIDEATA" ,200, "CAMBlU 0 
AZIONE" , 203 ,"ChMBIO TOTRLE 
910 q RETTORE 9105 FuR n=l TO 4 

9110 PRINT hT 20,11 • U$ 

9111 RERD XX PERO uO oUb 9 .• 

9112 FOR 9=1 TO 10 LET K =CODE I 

NKEV $ IF'K<>0 THEN LET be=l UU 

TO 915©+n *10 -, 

9120 BEEP .01,n*9 NEXT 9 

9121 NEXT n: GO TO 9109 

9160 PRINT hT 20,5 ; n $ «. 1 TO 2 / ) 
ùù sue 9200 GO TO o P *1000 
9170 PRINT RT 20,0,n* 00 SUB 9to 

00 GO TO 800 __ . 

9180 LET PZ=0 PRINT RT _ 20 , , n $ l 

ì TO 27) GO SUB 960O *jO Tu 500 
9190 PRINT RT 20,0,n$ GO SUB Ub 
00 GO TO 500 

y204 LET S =1 _ . -r~ 

9210 LET x X = 12 8 LET yy=’d: LET i 
$ = "COMPORRE IL CODICE DELL hRTIl 
OLO": GO SUB 9700 

9211 LET K. =CODE INKEY $ . _ IF K > 4 < 
RND K. <54 THEN BEEP .1,38 LET il 
= K — 48 GO Tu 9220 

9214 LET s =S +1 IF i > 10 THEN LET 

9Ìl5 BEEP .001,£*5 GO TO 9211 

9221 LET K =00DE INKEY$ IF <Cl=0 
RND li >48 RND K <58) uR 1 . C 1 >0 RND 
ri <5 RND K. >47 RND K<58.' OR 1 C 1 = 
6 RND K v47 RND K. <501 THEN BEEP . 
1.33 LET C2 = K-43 GO TO 9240 

9224 LET S=£+l: IF S>10 THEN LET 

9225 BEEP .001.9*5 GO TO 9221 
9240 PR INT RT 20 , 11 ; U $ LET C 0 = C 
1 * 10 + C 2 LET- t =C0 *9-8 

9242 LET XX =45 LET i=5. L ^T y$- 
' ARTICOLO " : GO SUB 9700: LET £■$ 
= 5TR $ C l GO SUB 9700 LET S$=sT 
R$ c 2 GO SUB 9700 . 

9250 LET CX =8 +INT ( i CO-1J / 1 ' *S0 

925 1 LET C U = 143 - •' C 0 - ( INT i ( C 0 -1 ) 

/ 17))*17)*7 

9299 LET i=7 RETURN 

9301 LET be=0 LET XX =0 LET 99- 

Ì36 LET q 1=8 

9310 FOR n =1 TO 51: LET XX=|i : L 
ET i=5 LET s $=d i i2*n-1 Tu 2*n 

GO SUB 9700 . * 

9311 IF b$ (vi , 9*n -8 Tu 9*n) wqs 
THEN LET XX= 91 +9 _LET 1 =7 _LET_S 
$ = b $ i v i . 9 * n — 8 T 0 9 * n 1 G 0 o U B 9 ■ 
00 

9312 IF CfVi . n) >0 THEN LET XX =9 1 
+64 LET 1=6 LET S$=3TR$ CtVx,n 
1 LET XX=9 1 +76-LEN S$*4 bU SUB 

9700 _ 

q 3 21 IF n = 17 OR n=34 THEN LET di 
= 8 +n /17*80 LET 99=143 
9399 lET yy=yy-7 NEXT n LET x= 
7 “LET be = 1 'BEEP .1,33 RETURN 
9410 FOR fì='l TO 4 FOR V=1 TO 5^ 
BEEP .01.5*0 BEEP .01.49/0 NE 
XT v NEXT 0 
9499 RETURN 

9510 PRINT RT r,18-LEN S$/2; INK 


BEEP . 01 , r *3 


1 . BRIGHT b f;S $ 

9550 BEEP .07,r*2 
9560 lET r — f+i 0 C 

9599 RETURN __ „ . 

9610 FOR 0=4 Tu 18: PRINT hT n .1 

. o $ ( 1 TO 30) _ . _ 

9690 BEEP .001,0*8+10 

9699 NEXT 0 RETURN 

9705 POKE 23693,15 INK 1 

9710 FOR 9=1 Tu LEN S$ GO SUB •- 

800 +CODE S$(9) ,LET XX=XX+4 

9779 IF S$(9) <> RND bt-1 THEN 

BEEP .004 .XX/10 +y 9/10 

9780 NEXT q RETURN 

9832 RETURN _ _ n 

9833 PLOT XX ,yy PLOT XX,99+2 D 
RRU 0,2 LET X X = X X + 1 RETLlRN 

9834 PLOT XX + 1,99+4 _DR.HU 0 , -1 
r.RRI.l -1,-1 PLOT X X +3,99+4: DRRU 

0 -1 DRRU -1,-1 LET x X = X X + 2 


RETURN 
9835 PLOT XX,99 
1.0 DRRU 1,-1 
N 

9336 PLOT XX,99 
0.3 DRRU 1,-1 
-1 DRRU 1,-1 
URN 

9837 PLOT XX,99 


DRRU 0.2 DRRU 
DRRU 0,-1 RETUR 

DRRU 1,1 DRRU 
DRRU 1.1 DRRU 0 
LET XX =XX +2 : RET 


DRRU 3.3: PLOT 

XX , yy+3 PLOt'xX+3,99 LET XX =XX 

9838^'PLOT xX , uM DRRU 0,2 DRRU 
1°S W DRRU 1 . - I : DRRU 0,-1 DRfJU 
0 1 DRRU 1.1 DRRU 1,-1 DRhU 0 
-1 LET xx=XX+2 RETURN 

9839 PLOT XX + 1 , 99 +4 DRhU -1,-1 

RETURN" .. rc . 

9840 PLOT XX+1,99 DRRU -1,1 LE 
RU 0.2: DRRU 1,1 RETURN 

9341'PL0T X X +1.99 DRRU 1,1: DRH 
u 0,2 DRRU -1,1 RETURN 

9344 LET XX=XX+1 PLUT XX +1,99+1 
DRRU -1,-1: LET X X =X X + 1 : RETUR 

9345 PLOT XX. 99+'2: DRRU 2,0 RET 

9346 PLOT XX+1,99 LET XX=XX+1 

q543^PLOT X X,M M +1 : DRRU 0,2 DRR 
11 il DRRU 1.-1 DRRU 0,-2 DRR 
n -1,-1 RET URN 

9849 PLOT XX, 99: DRhU 2,0. DRhU 
-1,0 DRRU 0,4 DRhU -1,-1 RETU 

9350 PLOT XX +2,99 DRhU -2,0 : DR 

RU 0,1 DRRU 2,2 DRRU -1,1 DRH 
I.J -1,0: RETURN , „ 

9351 PLOT XX. 9 9 DRRU 1,0 DRhU 

iTI DRRU -1.Ì DRRU 1,1 DRRU - 

1.1 DRhU -1,0 RETURN 

9852 PLOT XX +2,99: DRRU 0,4_ DRh 

y -2,-2 DRhU 0,-1 DRRU 1,0 RE 

9 35 3 PLOT XX, 99 DRhU 1,0 DRhU 

1.1 DRRU -1,1 DRRU -1,0 DRRU 

Q.2 DRRU 2,0 RETURN 

9354 PLOT XX+1,99+2: DRhU 1,-1. 
DRRU -1,-1 DRRU -1,1: DRhU0,2 

DRhU 1,1 DRRU 1,0 RETURN 
9 ; =ì r =, p l 0 T X X , 9 M DRR U 1,1 D R H U 
0 ,l‘ DRRU 1.1 7 DRRU 0,1 DRRU -2 
. 0 RETURN 

9856 PLOT XX,99+1 DRRU 1,-1 DR 
hU 1,1 DRRU -2,2 DRRU 1,1 DRh 

9357 PL0T E XX R 99• DRRU 1,0 DRhU 
ì I DRhU 0.2 DRRU -1,1: DRRU 
-1 -l" DRRU l.-l RETURN 

9353 PLOT XX +1 . u 9 PLOT XX +1,99 + 
2 RETURN • 

(continua) 
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correzione è anche in questo caso 
possibile con la funzione DE LETE, 
prima di dare l'ENTER. Al termine 
delle operazioni di inserimento la 
solita routine di attesa consente va¬ 
riazioni operative. 

Opzione 5: 
fine lavoro 


Va richiamata dal menù principa¬ 
le (tasto 5) solo quando si desidera 
registrare il file aggiornato fino a 
quel momento. Sul video appare un 
cursore bianco lampeggiante, che 
guida all'inserimento dei dati tem¬ 
porali relativi al momento in cui si 
procede alla registrazione. Saranno 
questi i dati che verranno stampati 
all'inizio del programma ogni volta 
che che il file verrà caricato. I valori 
vanno naturalmente inseriti usando 
i tasti da 0 a 9, e eventuali correzioni 
sono possibili prima di confermarli 
con ENTER. 

Data la conferma, un messaggio 
invita ad avviare il nastro e a preme¬ 
re un tasto per iniziare la registra¬ 
zione. che avviene istantaneamente 
e in modo del tutto automatico. Do¬ 
po un minuto circa un apposito mes¬ 
saggio invita a riavvolgere il suppor¬ 
to e a eseguire la verifica (anche 
questa è automatica: basta far parti¬ 
re il nastro e premere un tasto dello 
Spectrum). Se il file è caricato cor¬ 
rettamente compare un messaggio 
di OK e il programma torna auto¬ 
maticamente al menù principale, 
mantenendo il file registrato per ap¬ 
portarvi eventuali modifiche. 

Se si vuole operare con il file ap¬ 
pena salvato basta interrompere il 
programma (con CAPS SFIIFT + 
BREAK SPACE) e ridare il RUN: 
il programma parte daccapo chie¬ 
dendo la carica di un nuovo file di 
riferimento (che può essere, appun¬ 
to. quello appena salvato). Se inve¬ 
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caps 

shift 

+ 0 (ftohm) 




ce (nel caso di registrazioni errate) 
la verifica dà il drastico messaggio 
"TAPE LOADING ERROR". si 
deve dare l’istruzione RUN 6000 
per eseguire un reset parziale di 
emergenza: compare allora il menu 
principale, dal quale richiedere 
l'opzione 5 per ripetere la registra¬ 
zione. 

Battitura 
e salvataggio 

Si batte per primo il listato I (sot¬ 
toprogramma di lancio) e lo si salva 
con l'istruzione SAVE "COMPO- 
NENTS" LINE 1 (seguita da VER1- 
FY"") . Si procede poi alla battitura 
del vero e proprio programma (li¬ 
stato 2) e al relativo salvataggio tra¬ 
mite SAVE'"MASTER" LINE 1, fa¬ 
cendo in modo che tra questo blocco 
e il precedente rimanga uno spazio 
di nastro vuoto di circa 3—4 secondi. 
Dopo il VERIFY si batterà il lista¬ 
to 3. relativo al file di riferimento 
originale. Prima di salvarlo è neces¬ 
sario farlo girare tramite RUN: il 
video diventa bianco e appare il 
messaggio START TAPE, THEN 
PRESS AN Y KEY; prima di proce¬ 
dere alla registrazione, premendo 
un tasto dello Spectrum. si lascia un 
vuoto di 15 secondi circa (figura 3) . 
Dopo i 57 secondi di registrazione lo 
schermo sbianca: a questo punto si 
deve riavvolgere il nastro fino all'i- 
nizio di questo terzo blocco appena 
salvato e comandare la verifica, che 
avverrà automaticamente mettendo 
il nastro in PLAY, senza dare alcu¬ 
na istruzione Durante la verifica 
appariranno sul video, uno dopo 
l'altro con un intervallo di venti se¬ 
condi circa, due messaggi (CHA- 
RACTER ARRAY: CXÌ e NUM- 
BER ARRAY: CX2) e poi, se tutto 
è stato eseguito alla perfezione, un 
terzo (0 OK 20: 3). accompagnato 
da una musichetta. 

Se invece compare il messaggio R 
TAPE LOADING ERROR. 19: 1. 
si deve ripetere la registrazione (ba¬ 
sta dare il RUN, perché il listato 3 è 


ancora in memoria, e ripetere le ul¬ 
time operazioni). Il file di riferimen¬ 
to così salvato è quello originale, 
che quindi, in quanto vergine, deve 
essere usato necessariamente la pri¬ 
ma volta. Una volta che si sia utiliz¬ 
zato il programma si potranno natu¬ 
ralmente salvare e caricare dei file 
di riferimento non originali, ma ag¬ 
giornati. caratterizzati cioè dalla 
presenza di articoli e dati preceden¬ 
temente inputati. 

I file di riferimento aggiornati 
vanno ovviamente salvati su apposi¬ 
te cassette in modo che siano dispo¬ 
nibili indipendentemente dalla cas¬ 
setta del programma. Una volta ca¬ 
ricato. il programma chiede la cari¬ 
ca del file aggiornato: se, come suc¬ 
cede la prima volta, si desidera ope¬ 
rare con quello originale, si lascia 
scorrere la cassetta stessa; altrimen¬ 
ti. si carica un file aggiornato prece¬ 
dentemente caratterizzato e salvato 
su un'apposita cassetta. 

Teoricamente è possibile dispor¬ 
re di una memoria di massa infinita 
(e quindi di un immenso magazzino) 
semplicemente usando più cassette: 
ogni file viene subito riconosciuto in 
base alla data (e addirittura all'ora e 
ai minuti) in cui è stato salvato; il 
messaggio relativo rimane sul video 
per tutta la durata del programma. 

Esempio 
di codificazione 

Avete a disposizione 35 resisten¬ 
ze del valore di 47 Kohm e volete 
inserirle nel vostro Component Su- 
pervisor. Procedete innanzitutto a 
registrare la relativa denominazio¬ 
ne, richiamando (tasto 1) dal menu 
principale l’opzione nuovi inseri¬ 
menti Dopo alcuni secondi compa¬ 
re il menù delle videate disponibili; 
è necessario, nel vostro caso, com¬ 
porre il codice 02, relativo alla vi- 
deata in cui vanno catalogate le resi¬ 
stenze con valori superiori a 10 
Kohm. Procedete quindi scegliendo 
un codice compreso tra 01 e 51. che 
non sia già occupato da un’altra re- 
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Dove avrò messo il diodo... 


9864 PLOT XX,yy DRfiU 0,3 DRfiU 
1,0 DRfiU 1,-1 DRfiU -1,-1 RETIJ 
R N 

9865 PLOT xx.yy DRfiU 0.3 DRhU 

I , I DRhU 1,-1 DRhU -1,-1 DRhU 
1 O DRhU 0,-2 RETURN 
q 866 PLOT xx yy DRhU 0,4- DRhU 
l ,0 DRhU 1.-i DRhU -1 . -1 DRhU 
Ì.-l DRhU -1,-1 RETURN 
ggfi? PLOT xx +2 . yy DRhU -1,0 DR 
Òu"-1 . 1 DRhU 0'2 DRhU 1,1 DRfi 
U 1,0 RETURN 

9368 PLOT xX , yy DPhU 0,4, DRHU 
ITO DRhU 1,-Ì DRhU 0,-2 DRhU 
-Ì.-l RETURN _ ^ __ 

9S69 PLOT xx+2,yy DRhU -2,0 DR 
HU 0.2 DRhU 2.0 DRhU -2,0 DRft 
U 0,2 DRHU 2,0 RETURN _ 

9370 PLOT xX ,mm DRhU 0,2 DRHU 
2.0 DRHU -2.Ó DRhU 0,2 DRfiU 2 
,0: RETURN 

9871 PLOT xx+2.yy+2 DRhU 0,-2 
DRfiU -1.0 DRhU -1,1 DRhU 0.2 
DRhÙ 1,1 DRhU 1,0 RETURN 

9872 PLOT XX.'-IM DRfiU 0.4 DRhU 
07-2 DRhU 2.0' DRRU O.2 DRfiU 0 
. -4 RETURN 

9Q73 PLOT XX. um DRfiU 0,4 LET X 
X sx X -2 RETURN 

9374 PLOT xx.yy+l DRfiU 1,-1 DR 
fiU 1,1 DRfiU 0,3 RETURN 
9875 PLOT XX,yy DRhU 0,4 PLuT 
V X + 1.yy +2 DRfiU 2 -2 DRfiU -2,2: 

DPfii-i '2.2 LET XX =X X + 1 RETURN 
9576 PLOT XX +2 . yy DRfiU -2,0 DR 
fiU 0.4 RETURN ^ 

98 77 PLOT xx.yy DRfiU 0,0 DRfiU 
1.1 DRfiU l.-Ì' DRfiU 1,1 DRfiU 1 
,-1 DRfiU 0.-3: LET XX=XX+2 RET 
URN 

9873 PLOT XX,yy DRfiU 0,4 DRfiU 
1,0 DRfiU 1,-Ì DRfiU 0,-3 RETUR 

|s| 

9879 PLOT XX+l.yy DRfiU 1,0 DRfi 
Ci 1,1 DRfiU 0.2 DRfiU -1,1 DRfiU 

-1,-0 DRfiU -1,-1 DRfiU 0,-2: L 
ET X X = X X + 1 RETURN 

9880 PLOT xx.yy DRfiU 0.4 DRhU 
1,0 DRfiU 1.—1 DRfiU -1,-1: RETU 
RN 

9381 PLOT XX+3.yy DRfiU -1,1: DR 
fiU -1,0 DRfiU -1.1 DRfiU 0,1: DR 
fiU 1,Ì DRfiU 1,-1 DRfiU 0,-1 LE 


T xx =XX +1 RETURN _ 4 rr . n 

qgpp plot xx,yy DRfiU 0,4 DRhU 
frv DRfiU 'l.-Ì' DRfiU - 1,-1 DRfiU 
i._l DRfiU 0,-1 RETURN 
9803 p LOT X X ,y y DRfi U 1,0 DRfiU 
1,1 DRfiU -2,2 DRfiU 1,1 DRfiU 1 
, 0 RETURN 
9 8 84 P LOT X X,y y + 4 
Ù"0,-4 DRfiU 0,4 
RN 

9 8 8 6 P L OT X X . y y + 4 
Hlj 2,0 DRfiU 0,4 
9386 PLOT XX.yy+4 
fiU l.-l DRfiU 1,1 
URN 

9887 PLOT x x yy+4 
flu 1 -1 DRfiU 1,1 DRhU 0 
U 0-1 DRfiU l.-l_ DRfiU 1 
U 0,3 LET XX =xx +2 RETURN 
9388 PLOT XX.yy DRfiU 4,4 
-2 . -2 DRfiU -2,2 DRfiU 4 , -4 
XX = X X+2 RETURN „ . ___ 

9889 PLOT XX+l.yy DRfiU 0,2 DRfi 

rr:-i ,0 drhu 0.2 drru 0,-2 drp 

Li 2,0 DRfiU 0,2 RETURN 

9890 PLOT XX. yy+4: DRfiU 2,0 DRfi 

u 0,-1 DRfiU -2,-2 DRfiU 0,-1 D 
RfiU'2.0 RETURN , _ 

9395 PLOT X X ,y y DRHU 1,0 DRfiU 
O.1 DRfiU -1,1 DRfiU 0,1 DRfiU 1 
,1 DRfiU 2.0 DRfiU l.-l DRfiU_0. 
_1 DRfiU -l.-l DRfiU 0.-1 DRhU 
1.0 LET xx=XX+2 RETURN 

9983 LET f=10 LET _ >1=2 - 

9986 INK 4 PR IN I hT i ,C, 

_ _ - — — '• - . n 


DRfiU 1 , 0 
DRfiU 1,0: 

DRfiU 0 . -4 
RETURN 
DRfiU 0,-3 
DRfiU 0,3: 

DRfiU 0,-3 
1 

, 1 : 


DRfi 

RETU 

DR 

DR 

RET 

DR 

DRfi 

DRfi 


DRfiU 
LET 


9 9 3 ' 


r m\H 


998 8 PRINT hT f +5 , , INK 

p"I" FLfiSH 1. BRIO HT 1. 


6 PfiPE 


9989 RETURN -, 

999 4 P RINT U 1 , fiT 0.0, RhPER_ 

NK li" 


" ; fiT 1,5, INK 7, © 1985 b 

g D ISr.ùOOGUE LET nn=ldl 

9995 PRINT «1. PhPEP 0, fiT 0,4, ,,1 
N K 1 i " 1 C 0MP 0 N E NT 5 3 U PER U 13 U R 

9999 RETURN 


Astrazione; per esempio, il codice 
43. 

Premete il tasto 4. poi il tasto 3 e. 
dopo la comparsa dell'apposito 
messaggio di predisposizione, inse¬ 
rite la descrizione battendo questa 


sequenza di tasti: 4. 7. K. CAPS 
SH1FT + 0, ENTER (figura 4) 
Dopo aver confermato con EN- 
TER vedete apparire la routine di 
attesa: in presenza del messaggio 
"CAMBIO OPZIONE'" premete un 


Listato 3 


o SUPER 1 ,'ISOR 
, LlSTfiTO 3 

13 REM FILE DI RIFERIMENTO 

14 REM © 1985 by DISCOUOUUE 

15 REM 


11 REM COMPONENTE 

12 REM 


16 DIM b $ 1 14.460 ) DIM 0(14,51 

17 FOR risi Tu 14 LET b$(n,460 
=CHR$ 48 NEXT n 

18 SfiUE CX1 ' DfiTfi b$U: PuKE 
J 3736,181 SfiUE ' CX2" DfiTfi CO 

19 ÙERIFY "0X1" DfiTfi b$0 UER 
[ FY " " C X 2 " DfiTfi CO 

20 FOR n=l T0 16 BEEP .02,n 
•lEXT n 


tasto qualunque, facendo cosi ri¬ 
comparire il menù principale. Ri¬ 
chiamate ora. con il tasto 3. la fun¬ 
zione "INPUT". 

Viene proiettata di nuovo la vi- 
deata 02 (infatti avete modificato 
solo l'opzione, non la videata); sele¬ 
zionate il codice 43 e inserite il valo¬ 
re di input che. nel vostro caso, è 35 
(tante sono le resistenze a disposi¬ 
zione). Accanto alla descrizione del 
codice 43 viene stampato allora, in 
giallo, il numero 35. 

Daniele Malavasi 


Questo programma è disponibile 
su cassetta. 

L'elenco, i prezzi e le modalità 
d’ordine di questa e delle altre cassette 
disponibili sono riportati 
a!lepagine 81 e 82 . 
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ZX SPECTRUM 



G Bishop Progetti hardware 
con lo ZX Spectrum. 

Come costruire un convertitore 
analogico-digitale e uno digitale¬ 
analogico che possono essere 
collegati alla porta di espansione 
dello ZX Spectrum Con questi è 
possibile creare esposimetri e 
penne ottiche, termometri di pre¬ 
cisione e antifurti, joystick e si¬ 
mulatori di voce ecc II libro 
contiene tutti gli schemi elettro¬ 
nici e l'indicazione dei compo¬ 
nenti necessari per la realizzazio¬ 
ne dei progetti descritti, nonché i 
listati dei programmi 176 pagi¬ 
ne 17 000 lire 


C A Street La gestione delle 
informazioni con lo ZX Spectrum 

Questo libro spiega i fondamenti 
della gestione delle informazioni 
con numerosi esempi applicativi 
e soprattutto attraverso la realiz¬ 
zazione di un completo e funzio¬ 
nale programma di raccolta, con¬ 
trollo e organizzazione delle più 
diverse categorie di dati Tratta 
anche ampiamente, la verifica 
della correttezza dei dati, il loro 
ordinamento, la ricerca e la sele¬ 
zione all’Interno di un file usando 
differenti metodi con una o più 
chiavi di ricerca 134 pagine, 
16 000 lire 


T Woods Lassembler per lo 
ZX Spectrum 

L'Assembler è il linguaggio piu 
vicino alla logica del computer e 
permette di realizzare programmi 
estremamente compatti e veloci 
Nel volume l'argomento è affron¬ 
tato per gradi, cosi da permettere 
anche a chi è completamente di¬ 
giuno in materia di arrivare a una 
totale padronanza della sua sin¬ 
tassi Il testo è corredato di nu¬ 
merosi listati, immediatamente 
utilizzabili come programmi di 
utilità o come subroutine di pro¬ 
grammi Basic 200 pagine 
16 000 lire 


A tutti coloro che faranno un ordine 
di almeno 30.000 lire verrà dato in 
regalo, a scelta, o un fantastico 
gioco su cassetta per il Commodore 
64 oppure una raccolta di sei 
supergiochi e cinque Utilities per 
Spectrum, tutt e due del valore di 
10.000 lire ciascuna 


COMMODORE 64 


J Heilborn-R Talbott Guida al 
Commodore 64. 

Argomenti trattati: introduzione 
generale sulle apparecchiature 
Commodore: modi operativi del 
C-64. diretti e programmati; in¬ 
troduzione alla programmazione 
Basic, programmazione Basic 
avanzata: uso del joystick e degli 
altri comandi peri giochi; grafica; 
suono; unità periferiche, archi¬ 
tettura dei sistemi; uso della me¬ 
moria eccetera 440 pagine 
36 000 lire 


R Jeffries-G Fisher-B Sawyer 

Divertirsi giocando con il Com¬ 
modore 64 

Inserite nel vostro Commodore 
64 un po' di fantasia e di buonu¬ 
more , con i 35 giochi contenuti in 
questa raccolta' Potrete combat¬ 
tere contro Godzilla, scalare l’E- 
verest, salvare astronauti perdu¬ 
ti Ogni gioco è presentato con 
una breve introduzione sulle sue 
regole e sulle opzioni e vi fornisce 
il listato Basic completo 280 pa¬ 
gine, 22 000 lire 


H Peckham. w Ellis, Jr e E 
Lodi II basic e il Commodore 64 
in pratica 

Il metodo pratico di Peckham, 

I Hands-on-Basic, accompagna 
gradualmente il lettore dai primi 
approcci alla tastiera fino alla 
completa padronanza del com¬ 
puter e della programmazione 
Durante la trattazione sono esa¬ 
minati in dettaglio numerosi pro¬ 
grammi completi immediata¬ 
mente utilizzabili 312 pagine, 
27 000 lire 


SI! Inviatemi subito, senza aggravio di spese 
postali, il o i volumi contrassegnati 
con una crocetta 

□ Progetti hardware con lo ZX Spectrum 
17.000 lire. 

□ La gestione delle informazioni con 
lo ZX Spectrum 16 000 lire 

□ L assembler per lo ZX Spectrum. 18.000 lire 

□ Guida al Commodore 64 36 000 lire 

□ Divertirsi giocando con il Commodore 64 
22.000 lire. 

□ Il basic e II Commodore 64 in pratica 
27 000 lire. 


Cognome e nome. ^ i 

Via. N . ? J 

Cap.Città.Provincia. * ! 

Scelgo la seguente formula di pagamento 

□ Allego assegno non trasferibile di L . .intestato a Editromca Srl, 1 

Corso Montone 39. 20122 Milano | 

□ Allego ricevuta di versamento di L. .sul CC postale N. 19740208 ! 

intestato a Editronica Srl, Corso Monforte 39. 20122 Milano i 

I 

Qualora il mio acquisto sia superiore a 30 000 lire, inviatemi in omaggio la cassetta • 

I 

□ per Spectrum, □ per Commodore 64 (barrare il quadratino in corrispondenza del t i 

regalo desiderato). Y 

ofi 


Data 


Firma 


















Apple // 

GAMES 



Tre righe, tre colonne, 
tre colori: filetto 
tridimensionale è un 
gioco nuovo, 
facile e divertente. 
Attenzione, però: 
pareggiare non si può... 


Giocare sì, ma 



d 


U na gran qualità di ogni tavola di 
gioco che si rispetti è la chiarez¬ 
za: colori limpidi e tracciati nitidi 
aggiungono piacere ai giochi, so¬ 
prattutto se di natura "geometrica". 
Filetto tridimensionale, un gioco in 
grafica Applesoft, è facile e piace¬ 
volissimo grazie anche alla sua puli¬ 
zia grafica: si svolge su tre righe di 
tre colonne, lievemente sfalsate in 
modo da produrre un effetto tridi¬ 
mensionale. 


1 giocatori mettono a turno i loro cessiva 


"pezzi" rossi o verdi in queste colon¬ 
ne, ai livelli basso, medio o alto, 
ottenendo un punto ogni volta che 
realizzano una trea orizzontale, ver¬ 
ticale o diagonale. Quando tutte le 
colonne sono complete, viene pro¬ 
clamato vincitore il giocatore che ha 
realizzato il punteggio più alto; in 
caso di parità si deve giocare anco¬ 
ra: al punteggio ottenuto fino a quel 
momento andrà a cumularsi quello 
della partita (o delle partite!) suc- 


L1STATO 


2 REM 


4 

5 

6 

7 

8 

23 

25 

27 

2 ? 

31 

33 

35 

37 

39 

41 

43 

45 

47 


40 


65 


REM * 37D TIC TAC TOE 

REM * BY BILL PUMPHREY 

REM * COPYRIGHT (0 1985 

REM * BY R. E. 4 C. 4 

REM * HICRO-SPARC INC 

REM 

HOME : GR 

FOR 1 = 0 TO 39 STEP 2 

rniQRr i 

UHM 0,11 AT ! : VLIN 12,23 AT ì M: VIIN 24,35 AT I 
CQL0R= ^ 

0LIN o.ii AT I ♦ 1: CIUM 12,23 AT I: VLIN 24,35 AT 1 ♦ 1 
NEXT ! 

rprrjv if\Q 

HTAB 3: PRINT * RILETTO TRIDIMENSIONALE A COLORI* 

HTAB 15: PRINT 'PER APPLE * rrAnr , 

PRINT * COPYRIGHT < 0 1985 BY RE4C 4 MICRO-SPARO* 

FOR 2 = 1 TO 2000: NEXT Z 
. TEXT : HOME : SPEED= 255 

55 S PRINT T 'QUESTO E' UN GIOCO TRIDIMENSIONALE DI FILETTO. DUE 
GIOCATORI (ROSSO E VERDE) METTONO A TURNO I LORO PEZZI C 
ni ORATI * 

PRINT ’IN NOVE COL MIE, FACENDO UN PUNTO OGNI VOLTA CHE TR 
E PEZZI DELLO STESSO èOLORE VENGONO MESSI SU INA LINEA VER 
TICALE, DIAGONALE 0 ORIZZONTALE. LA PARTITA HA TERMINE 

quando tutte le colonie sono complete.* rrr ^ ni „ 

PRINT : PRINT ‘OGNI C0LOW4A E DIVISA IN TRE SEGMENTI --BA 
SSO MEDIO E ALTO. PRIMA SCEGLI IN QUALE C0LW4A ( 1-9 VU 
0! METTERE IL T U0 PEZZO, POI SCEGLI IL SEGMENTO '8,M,A). 
PRINT 

70 PRINT ‘SOTTO L’AREA DI GIOCO VIENE INDICATO IN DIAGRAMMA CO 
N I NUMERI DELLE COLONIE.* 


72 PRIMI : PRINT ‘SE SCEGLI UN NUMERO Di COLONNA ERRATO, BATT 

I LA LETTERA <E> COME SCELTA DELLA POSIZIONE, POI BATTI I 
L NUMERO DELLA COLONNA E LA POSIZIONE ESATTA.* 

73 INVERSE : PRINT : PRINT ‘BATTI UN TASTO PER CONTINUARE GET 

75 VTAB Bi^PRIMI MNPUT 'BATTI IL NOME DEL PRIMO GIOCATORE 

» .£3 

7? Ai - ** 4 HEN 75 

80 PRINT : INPUT ‘BATTI IL NOME DEL SECONDO GIOCATORE 

■ 

82 IF è» » ** THEN 80 

35 IF LEN (Ai) + LEN (Bi> > 14 THEN 87 

p i Rnrn 9Q 

8° HOME : PRINT : PRINT *! NOMI SONO TROPPO LUNGHI.*: PRINT *A 
CCQRCIALI 0 CAMBIALI POI RIBACI.* 

88 POR Z = 1 TO 1500: NEXT Z: GOTO 75 

99 PEM * PREPARAZIONE VIDEO 

100 HOME : RESTOSE :S = ff:R = 0:T = 0 
105 GR : C0L0R= 13 

110 HLIN 0,39 AT 0: HLIN 0,39 AT 39 

115 VLIN 0,39 AT C: VLIN 0,39 AT 3« 

; ?5 VLImÌi AT 3: VLIN 12.29 AT 7: VL1N 20.37 AT 11 

130 VLIN 4,2! AT 15: VLIN lJ,29 AT 19: VLIN 20,3? AT 23 

135 VLIN 4,21 AT 27: VLIN 12,29 AT 31: VLIN 20,37 AT 35 

140 IF X = 1 OR X = !2 T HEN 200 

150 X = 12: CQL0R= X 

200 REM * ROUTINE GI0CA T 0RE 

20! R = 0 „ „ 

205 VTAB 21 : PRINT ‘12 3 

VTAB 22: PRINT * 4 5 6 

VTAB 23: PRINT • 7 8 9* 

G n T0 235 

HTAB 16: PRINT Ai;' MUOVE ‘:X = 1: C0L0R= X 


210 

215 

222 

225 

230 


IF X = 
'VTAB 21 : 
GOTO 300 
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Il programma 

E' scritto in Applesoft e compren¬ 
de quattro routine: istruzioni e pre¬ 
parazione della tavola di gioco; 
mosse dei giocatori; controllo del 
punteggio; totali del punteggio di 
gioco. 

Le istruzioni sono contenute nelle 
righe 55-86. All'inizio del gioco 
vengono chiesti i nomi dei giocatori, 
che il computer utilizza per segnala¬ 
re a chi tocca muovere; se la lun¬ 


ghezza complessiva dei due nomi 
supera lo spazio disponibile per la 
segnalazione del punteggio i gioca¬ 
tori vengono invitati ad abbreviarli 
(righe 87-88). 

La tavola di gioco usa la grafica a 
bassa risoluzione per la sua incorni¬ 
ciatura e per il disegno delle colonne 
bianche sfalsate, ognuna alta 18 uni¬ 
tà e divisa in 3 segmenti di 6 unità: 
basso, medio e alto (righe 99-135). 
Nell’area di testo viene fornita una 
mappa dei numeri di colonna per 


un’agevole identificazione (righe 
200-215). 

Il gioco 


Si ha diritto a una mossa a testa; 
ogni giocatore al suo turno mette il 
proprio colore nel settore basso, 
medio o alto di una delle nove co¬ 
lonne. cercando di completare una 
combinazione che dia punteggio. Il 
COLORE tracciato (e poi control¬ 
lato per verificare le combinazioni 
vincenti) è sempre uguale a X; il 
valore di X varia tra l (rosso) e 12 
(verde). 

Per la prima mossa della partita X 
è posto uguale a 12 (linea 150): gio¬ 
ca cioè per primo il verde. Quando 
questo ha fatto la sua mossa, il suo 
punteggio è stato calcolato e il gioco 
è ritornato all’imzio. X viene reso 
uguale a 1 per la mossa dell’altro 
giocatore. Ogni volta che il gioco 
torna all'inizio si ha la commutazio¬ 
ne del colore (righe 222-235). 

Per prima cosa chi gioca sceglie 
un numero di colonna da 1 a 9 (riga 
303); poiché è richiesta una sola ci¬ 
fra, usa GET anziché INPUT, eli¬ 
minando così la necessità di un RE¬ 
TURN. Le righe 304- 305 costitui¬ 
scono una trappola che ignora lutti ì 
tasti tranne le cifre da 1 a 9. Il gioca¬ 
tore deve scegliere poi la posizione 
di colonna (righe 306-9), con i tasti 


235 

300 

331 

302 

303 

304 

305 

306 


30? 

308 

30? 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

356 

357 

358 

359 

360 
36! 

362 

363 

364 

375 

376 


VTAB 21: HTAB 16: PR1NT Bi;" MUOVE *:X = 12: C0L0P= X 
REM * ROUTINE PER LA MOSSA 
C0L0R= X 

F0R Z - 1 T0 17:Y = PEEK - 16336): NEX? 2 

VTAB 22: HTAB 16: PRlfF 'QUALE COLON* (1-9) GE T p 

i 

IF P$ = *1* OR Pi - *2‘ OR Pi = *3’ OR Pi = *4* OR Pi = *5 
’ OR Pi = '6* OR Pi = "7' 0? ^ = *8' DR Pi = *9* GOTO 306 


= *6 


= *7* 


GOTO 303 

VTAB 22: HTAB 16: PR1NT "QUALE POSIZIONE (B-M-A)';: GET L 

i 

IF Li = "E" GOTO 303 

IF Li = "B" OR LI = ,M ‘ OR Li = "A" GOTO 310 
GOTO 306 
IF LEFTi •;Pi, 1 ) 

LEFTi (Pi,Il 
LEFTi (Pi,!) 

LE^i (Pi,!' 

LEFi (Fi,!) 

LEFTi (Pi, 1> 

LEH1 (Pi,l: 

LEFi <**i,l) 

LEFi (Pl.l) - , ^ 

SCRN( 35,37) = 15 AND Li = "B" GOTO 357 
GOTO 358 

VLIN 32,37 AT 35: GOTO 600 
IF $CRN( 35,2?) = 15 AND Li = *M" GO^O 360 
GOTO 361 

VIIN 26,31 AT 35: GOTO 600 
IF SCRN' 35,21' = 15 AND Li = "A" GOTO 363 
GOTO 364 

VL1N 20.25 AT 35: GOTO 600 
GOTO 530 

IF SCRN-, 23,37) = 15 AND Li = "B" GOTO 377 
GOTO 378 


GOTO 355 
GOTO 375 
GOTO 395 
6 * GOTO 415 
■5' GOTO 435 
GOTO 455 
GOTO 475 
GOTO 495 
GOTO 515 


*4 

"3" 

*2" 

■ 1 " 


377 L/L IN 32.37 AT 23: GOTO 600 

378 I p SCRN! 23,29) = 15 AND LÌ = "h" GOTO 380 

379 GOTO 38! 

38? VLIN 26,31 AT 23: GOTO 600 

381 IF SCRN! 23,2!) = 15 ANO Lì = "A* GOTO 383 

282 30 T 0 364 

383 VLIN 20.25 AT 23: GOTO 600 

384 GOTO 53C 

395 IF SCRN! 11,37) = 15 AND Li = "B" GOTO 397 

396 GOTO 398 

397 VLIN 32,37 AT lì: GOTO 600 

398 IF SCRN! 13,291 = J5 WD Lì = "M* GOTO 400 

399 GOTO 401 

400 VLIN 26,33 AT 11: GOTO 600 

401 IF SCRN! 11,21) = 15 AND Li = "A" GOTO 403 

402 GOTO 434 

403 VLIN 20.25 AT II: GOTO 600 

404 GOTO 530 

415 IF SCRN! 31,2?) = 15 AND Lì = "B" GOTO 417 

416 GOTO 418 

417 VLIN 24,29 AT 31: BOTO 600 

416 IF SCRN 3!,23> = 15 AND Lì = "M" GOTO 420 

419 GOTO 421 

420 VLIN 18,23 AT 31: GOTO 600 

421 IF SCRN! 31,17) = 15 AND Li = "A" GOTO 423 

422 GOTO 424 

423 VLIN 12.17 AT 31: GOTO 600 

424 GOTO 530 

435 IF SCRN! 1?,2?> = 15 AND Li = "B* GOTO 437 

436 GOTO 438 

437 VLIN 24,2? AT 19: GOTO 600 

438 IF SCRN! 19,23/ = 15 AND Li = "M" GOTO 440 

439 GOTO 441 

440 VLIN 18,23 AT !?; GOTO 600 

44! IF SCRN! 19,17) = 15 AND Lì = "A" GOTO 443 


(continua) 
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Giocare sì, ma... con tre d 

B (bottoni = basso), M (middle = 
medio) e T (top = alto); anche qui 
una trappola (righe 307—309) igno¬ 
ra tutti i tasti tranne B, M. T ed E. E 
è un codice di errore che salta indie¬ 
tro alla linea 302 per consentire al 
giocatore di ripetere la scelta della 


colonna, nel caso abbia introdotto 
un numero sbagliato. 

Le linee 310—350 saltano a routi¬ 
ne che controllano se lo spazio scel¬ 
to è libero e, in caso affermativo, 
tracciano sul bianco della sezione di 
colonna prescelta una linea, alta tre 


unità, nel colore di chi sta giocando. 
La routine della mossa del giocatore 
utilizza la funzione SCRN per con¬ 
trollare il colore dello schermo nella 
posizione di colonna scelta dal gio¬ 
catore. Se la posizione non è bianca 
viene generato un messaggio di er- 


442 GOTO 444 

443 VLIN 12,17 AT 19: GOTO 600 

444 GOTO 530 

455 1F SCRN( 7,29) = 15 AND LI = 'B 1 GOTO 457 

456 GOTO 458 

457 UL1N 24,29 AT 7: GOTO 600 

458 IF SCRN': 7,23) = 15 AND LI = 'ri* GOTO 460 

459 GOTO 46! 

460 VLIN 18,23 AT 7: GOTO 600 

461 JF SCRN' 7,17) = 15 AND LI = ’A* GOTO 463 

462 GOTO 464 

463 VLIN 12.17 AT 7: GOTO 600 

464 GOTO 530 

475 IF SCRN( 27,21) = 15 AND Li = '8' GOTO 477 

476 GOTO 478 

477 VLIN 16,21 AT 27: GOTO 600 

4TB !F SCRNt 27,15) = 15 MD LI = ’M" GOTO 480 

479 GOTO 461 

480 VLIN 10,15 AT 27: G0 T 0 600 

48! !F SCRNt 27,9) = 15 ANO il = 'A* GOTO 483 

482 GOTO 484 

483 VLIN 4.9 AT 27: GOTO 600 

484 GOTO 530 

495 IF SCRN< 15,21) = 15 AND LI = 'B' GOTO 497 

496 GOTO 498 

49T VLIN 16,2! AT 15: GOTO 600 

498 IF SCRN' 15.15) = 15 AND LI = 'M‘ GOTO 500 

499 GOTO 501 

500 VLIN 10,15 A T 15: GOTO 600 

501 IF SCRN< 15,9) = 15 AND LI = "A" GOTO 503 
51)2 GOTO 504 

503 VLIN 4.9 AT 15: GOTO 600 

504 GOTO 530 

515 IF SCRNt 3,21) = 15 m LI = '8' GOTO 517 

516 GQ T 0 518 

517 VLIN 16,21 AT 3: GOTO 600 

518 IF SCRNt 3,15) = 15 AND Li = 'li" GOTO 520 

519 GOTO 52! 

520 VlIN 10,15 AT 3: GOTO 600 

521 IF SCRNt 3,9) = 15 4ND LI = 'A' GOTO 523 

522 GOTO 530 

523 VLiN 4,9 AT 3: GOTO 600 

530 MONE : VTA6 22: FLASH : PRINT •POSIZIONE OCCUPATA*: N0RMAL 


535 

537 

540 

545 

547 

550 

600 

605 

610 

615 

620 

625 

630 

635 

640 

645 

650 

655 

660 

*65 

670 

675 

680 

685 

690 

695 

700 

705 

710 


VTAB 23: PRINT 'RIPROVA * 

FOR 2 = 1 T0 700: NEXT 2 
IF X = 1 T HG< X = 12: GOTO 547 
IF X = 12 THEN X = ! 

HOME 
GOTO 201 

REM * ROUTINE Di CONTROLLO 
REM « CONTROLLO COLONNA 
FOR 1 = 1 TO 3 
READ D.E,F 

IF SCRNt D,7) = X ANO SCRNt 0,13) = X ANO SCRNt D,19) = 

X THEN R = R i \ 

IF SCRNt E,15) = X AND SCRNt E,21) = X AND SCRNt E,27) = 
X THEN P = R + 1 

IF SCRN'. F 23» = X AND SCRNt F,28> = X AND SCRNt F.35) = 
X THEN R = 9 4 i 
NEXT I 

DATA 3.7,11,35,19.23,27.31,35 
REM * CONTROLLO ORIZZONTALE 
F OR I = 1 T 0 3 

DATA 7, <5, 23, 13, 21, 28, 19, 27, 35 
READ D.E.F 

IF SCRNt 3,0) = X AttD SCRNt 15,D) = X AND SCRNt 27,D) = 

X THEN R = R + 1 

IF SCRNt 7,E) = X AND SCRNt 19,E) = X AND SCRNt 31,E) = 

X THEN R = R + 1 

IF SCRNt 11 ,F) = X AND SCRNt 23,F) = X AND SCRNt 35,F) ; 
X ThEN R = R + 1 
NEXT 1 

REN * CONTROLLO VERTICALE 
FOR I = 1 T0 3 

DATA 3,7,11,15,19,23,27,31,35 
READ D.E.F 

IF SCRNt D.7) = X wD SCRNt E,15) = X AND SCRNt F,23) = 

X TH04 R = R ♦ 1 

IF SCRNt 0.13) = X AND SCRNt E,21) = XW SCRNt F,28) = 
X THEN R = R ♦ 1 


715 IF SCRNt D, 19) = X ANO SCRNt E,27) = x (V4D SCRNt F ,351 = 

x t HEN 9 = 9*1 
720 NEXT I 

725 REN * CONTROLLO DIAGONALE VERTICALE 
73C fqp I = 1 TO 3 
732 READ D.E.F 

735 DATA 3, 7, 31, 15. 19, 23, 27, 31, 35 

740 IF SCRNt D.7) = X AND SCRNt E,21) = X AND SCRNt F,35) = 

X THEN R = R * 1 

745 IF SCRN' 0,19) = X AND SCRNt E.21) = X #TD SCRNt F,23) = 

X THEN R = R + 1 ’ 

750 NEXT I 

755 9CM » CONTROLLO DIAGONALE ORIZZONTALE 

760 IP SCRN' 3,7) = X AND SCRNt 15,13) = X W0 SCRNt 27,19) 

= X THEN R = R + ! 

765 IF SCRNt 3,19) = X AND SCRNt 15,13) = X m SCRNt 27,7) 

= X T HEN R = R + 1 ’ 

770 IF SCRN 1 , 7,15) = X AND SCRNt 19,21) = X WD SCRNt 31,27 

) = X T HEN P - R + ! 

775 IF SCRNt 7,27) = X AND SCRNt 19,2!) = X AND SCRNt 31,15 

) = X THEN fi = R ♦ 1 1 

780 IF SCRNt 11.23) = X AND SCRN! 23,28) = X AND SCRNt 35,3 

5 *' = X THEN R = R ♦ i f 

785 IF SCRNt 11,35) = X AND SCRNt 23,28» = X AND SCRNt 35,2 

3) = x THEN R = R ♦ i ’ 

790 REN * CONTROLLO DIAGONALE DIAGONALE 

795 IF SCRNt 3,7) = X AND SCRNt 19,21) = X 9MD SCRNt 35,35) 

= X THEN R = R + 1 

800 IF SCRNt 3,19) = X AND SCRNt 19,21) = X AND SCRNt 35,23 

) = X THEN fi = R ♦ 3 ’ 

805 JF SCRNt 11,23) = X AND SCRNt 19,21) = XfWD SCRNt 27,1 

9) = X THEN R = R + 1 

810 IF SCRNt 11,35) = X AND SCRNt 19,21) = X AND SCRNt 27,7 

) = X THEN R = R + 1 ' 


815 REM * CONTROLLO DIAGONALE ATTRAVERSO IL CENTRO 

320 FOR I = ! TC 3 

825 DATA 23,15,7,28,21,13,35,27,19 

839 READ D.E.F 

835 IF SCRNt il,!)) = X AND SCRNt 19,E) = X AND SCRNt 27,F) = 
X THEN R = R ♦ I 

840 NE)T I 

84! FOR I = 1 TO 3 

850 DATA 7, 15, 23, 13, 21, 28, 19, 27, 35 
855 READ D.E.F ’>>''»' 

860 IF SCRN' 3,0) = X AND SCRNt 19,E) = SCRNt 35,F) = 

X THEN R = R ♦ 1 ’ 

865 NEXT ! 

900 FOR L = 3 T0 35 STEP 4 
910 FOR M = 9 T0 33 STEP 3 


920 JF SCRNt L.N) = 15 THEN 3000 
930 NEXT M,L 
950 GOTO 1100 

1000 restore 

1010 ]F x = 1 THEN S = R 

1012 IF X = 12 THEN T = R 

1013 IF LEN <A$i ♦ LEN IBI) ) 10 THEN 1020 

1015 VTAB 23: HTAB 20: INVERSE : PRINT ■ *;AI: 1 'jS;' / *;BI 
;■ 'jT:' ■: NORMAL ' 

1017 GOTO 200 

1020 VTAB 23: HTAB 14; INVERSE : RR1NT ■ ' ; S:' / 'jBI;' 

'jT:' ■: NORMA,. ' ' ’ 

1025 GOTO 200 

1200 HOME : VTAB 21: HTAB 11: FLASH : PRINT * FINE DELLA PARTI 
TA ': NORNAl 

1191 IF X = 1 THEN S = R 
1102 IF X = 12 THEN T = R 

1104 COLORA 15 

1105 HLIN 0,39 AT 0: HLIN 0,39 AT 39: VLIN 0,39 AT 0: VLIN 0,3 

9 A T 39 ' 

1106 FOR Z = 1 TO 50 

3107 Y = PEEK ( - 16336): FOR H = 1 T0 10: NEXT H: NEXT Z 

1108 .VTAB 22: PRINT 'PUNTEGGIO FINALE : 'iAl;' ';S;' J 'jBI;' 

1109 ÌF S > T THEN A = A ♦ 1 
1311 ! c T > S T HEN B = B ♦ 1 

1112 VTAB 23: HTAB 1: PRINT 'PARTITE VINTE : ';AI;' •;A:* — 

1114 24: PRINT 'VUOI FARE IN'ALTRA PARTITA ’ <S/N)* ; : GEI 

1115 IF ZI = 'S' GOTO 100 
1117 TEXT : HOME : END 
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rore (righe 530-550), il giocatore 
viene invitato a fare un'altra scelta e 
il programma ritorna alla routine di 
scelta della colonna. 

Combinazioni vincenti 

Dopo il completamento della 
mossa il programma salta alle righe 
600—865, che controllano tutte le 
possibili combinazioni vincenti per 
il colore del giocatore in azione, uti¬ 
lizzando anche qui la funzione 
SCRN. Durante questa verifica il 
punteggio dell’altro giocatore non 
viene alterato, poiché il controllo si 
basa sui punti di SCRN uguali al 
colore X. e il valore di X è 1 oppure 
15. 

All'inizio del controllo del pun¬ 
teggio, R (cioè il punteggio del gio¬ 
catore in azione in quel momento) è 
impostato su zero, e si accumula at¬ 
traverso questa sezione con un in¬ 
cremento di 1 per ciascuna combi¬ 
nazione vincente (R = R + l). Nel 
procedimento di punteggio vengo¬ 
no impiegate cifre DATA e istruzio¬ 
ne READ perché spesso i numeri di 
colonna rimangono gli stessi mentre 
vengono controllati i diversi livelli e 



le diagonali. Per risparmiare memo¬ 
ria si utilizzano loop con DATA e 
READ. 

Le righe da 900 a 930 controllano 
se c’è ancora spazio bianco nelle co¬ 
lonne. Anche se ogni posizione di 
colore in una colonna è alta 6 unità, 
occorre controllare soltanto 1 unità 
in ciascuna posizione di colonna. A 
questo provvedono con rapidità la 
routine di loop e la funzione STEP. 
Se c’è ancora spazio bianco, il pro¬ 
gramma salta alle righe 1000—1025, 
dove sono riportati i punteggi e vie¬ 
ne impostata la mossa successiva. 

Se invece non rimane spazio bian¬ 
co in nessuna colonna, il program¬ 
ma salta alla riga 1100 per dare il 


punteggio della partita e il punteg¬ 
gio cumulativo del set e per offrire 
un’altra tornata. Se la partila è in 
pareggio, non viene cambiato il 
punteggio di set dei due giocatori. 

Se si sceglie di giocare ancora, la 
prima mossa viene affidata allo 
sconfitto o. in caso di pareggio, al 
giocatore cui sarebbe toccata la 
mossa. 

Variabili 


Ecco, qui di seguito, un breve 
elenco delle variabili utilizzate nel 
programma: A$ = nome del primo 
giocatore; B$ = nome del secondo 
giocatore; X = numero del colore 
del giocatore in azione; P$ - scelta 
della colonna; L$ = scelta della po¬ 
sizione; S = punteggio del colore I ; 
T = punteggio del colore 12: R = 
punteggio del colore X (successiva¬ 
mente convertito in S o in T); Z$ = 
variabile di attesa per un'altra parti¬ 
ta. 

Infine, un piccolo suggerimento: 
battendo tre volte CTRL G alla riga 
530, dopo la parola occupata e pri¬ 
ma della chiusura delle virgolette, si 
otterrà il segnale di errore di scelta. 
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Tachimetro 
per bici 


Sulla tua bici hai 
montato un 

misuratore elettronico 
di velocità? No?! 

E allora comefai a 
saperea quanto vai? 
Ti aiutiamo noi con 
questo progetto che è 
quasi un computer, 
ma facile facile... 


Foto 1. Il misuratore di velocità 
aperto dal lato coperchio: sono 
visibili i componenti e la disposizione 
di montaggio. 


I l principio di questo progetto 
elettronico di facile realizzazione 
consiste nel contare il numero dei 
fori di un disco che passano davanti 
al trasduttore e nel visualizzare la 
velocità. 

La figura 1 rappresenta lo schema 
a blocchi completo del dispositivo. 
Un disco di bakelitc che ha otto fori 
sulla periferia è fissato sull'asse del¬ 
la ruota posteriore mediante tre di¬ 
stanziatori. 

Un rivelatore a finestra, compo¬ 
sto di un diodo elettroluminescente 


e di un fototransistor, conta il nume¬ 
ro dei fori che passano davanti alla 
fotocellula in un determinato tem¬ 
po. Un contatore e poi un decodifi¬ 
catore trasmettono agli indicatori la 
velocità istantanea in km/h. 

Funzionamento 

elettronico 

Il disco munito di otto fori, fissato 
sull’asse della ruota, passa nella fi¬ 
nestra del trasduttore e taglia il fa¬ 
scio emesso dal diodo elettrolumi¬ 
nescente, otto volte a ogni giro di 
ruota. Le ruote da 700 hanno in 
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Quanti chilometri con un led 


realtà solo 68 cm di diametro, e 
quindi la loro circonferenza è I = pi 
greco x D = 3.1416 x 0,68 = 2.14 m. 
11 trasduttore leggerà quindi fra due 
fori una distanza corrispondente a 
2.14:8 = 0,2675 m. Per 1 km occor¬ 
rerà dunque che passino 1000 : 


0,2675 = 3738 fori, e per 1 km/h 
passerà 1 foro ogni 3600 s : 3738 = 
0,96 secondi. Basta contare il nume¬ 
ro dei fori che passano davanti alla 
cellula durante 0,96 s, e 1' elettroni¬ 
ca farà il resto per visualizzare la 
velocità istantanea in km/h. Ecco 


come avviene. L’uscita del fototran¬ 
sistor (trasduttore) va all’ingresso di 
clock di 1/2 IC2, mentre il suo in¬ 
gresso enable è abilitato solo duran¬ 
te 0.96 s dal flip-flop formato dalle 
due porte 1 c 2 di 1C1 e da CI, C2, 
R3, R4, DI e PI, che permette di 
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Figure 3 e 4. Andamento degli oscillogrammi in alcuni punti del dispositivo. 
Aspetto degli elementi del trasduttore di velocità, in particolare del disco. 


MISURA_f 




MOC7821 


Collettore Anodo 


Emettitore Catodo 




Figura 6 




Figura 5 
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Quanti chilometri con un led 



regolare la durata della misura. L'u¬ 
scita 6 del primo contatore IC2 va 
all’ingresso enable 10 del secondo 
contatore a cascata. L'uscita della 
porta 3 di IC1 crea un monostabile 
di reset dei contatori IC2 tramite C3 
e R6. Il LED D2. alimentato da R5, 
e le porte 5 e 6 di IC1 forniscono 
impulsi e PI permette di regolare a 
0.96s il tempo fra due impulsi. Dato 
che gli ingressi 5 di latch dei decodi¬ 
ficatori IC3 e IC4 sono in fase con 
l'enable dei contatori IC2 non si ha 
scorrimento dell'indicazione duran¬ 
te la misura dato che IC3 e IC4 sono 
bloccati (vedi figura 3). 




Gli integrati IC3 e 1C4 alimenta¬ 
no i segmenti dei due visualizzatori 
Al e A2 a catodi comuni attraverso 
le resistenze da R7 a R20. Il consu¬ 
mo medio è di 180 mA; non si deve 
quindi lasciare l’apparecchio co¬ 
stantemente in funzione, ma lo si 
deve utilizzare solo per controllare 
di tanto in tanto la propria velocità. 
Il ricorso a visualizzatori a cristalli 
liquidi sarebbe stato interessante in 
quanto il consumo è assai debole, 
ma nel dispositivo ci sono solo due 
cifre, e i visualizzatori a cristalli li¬ 
quidi sono più costosi e di più diffici¬ 
le reperimento. 

Nella figura 4 possiamo distin¬ 
guere tutti gli elementi del trasdut¬ 
tore di velocità; in a il disco in scala 
1:1, che potrà essere riprodotto co¬ 
me un circuito stampato. E' fissato 
sulla ruota posteriore a mezzo di tre 
distanziatori 1 : 10 0 9 (vedi figura 
4). In b la piedinatura del trasdutto¬ 
re a fotocellula. In c il suo schema 
elettrico. In figura 7 abbiamo due 
piccoli circuiti stampati in scala 1:1 
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Quanti chilometri con un led 


di piccole dimensioni abbiamo fatto 
ricorso all'impiego di due circuiti 
stampali principali, uno per il dispo¬ 
sitivo d’indicazione e Taltro per la 
sezione conteggio. 

I tracciati dei circuiti stampati, 
pubblicati in grandezza naturale, 
sono facili da riprodurre mediante 
trasferibili o con il metodo fotogra¬ 
fico. 

II montaggio dei componenti non 
richiede commenti particolari, co¬ 
munque si dovrà fare bene attenzio¬ 
ne all'orientamento dei circuiti inte¬ 
grati e non dimenticare il ponticello 
di collegamento della scheda di con¬ 
teggio. 

Anche il circuito trasduttore ri¬ 
chiede un piccolo circuito stampato. 



loto 5. l’iiiiu uhm ili niiiiiiii^in ilei iriistliiiinn Si m inveii ih s< i> 



che vanno saldati l'uno sull'altro a 
90 gradi: quello più grande è fissato 
sulla forcella posteriore mediante 
serracavi di piccole dimensioni, il 
piu piccolo porta il trasduttore sen¬ 
sibile. Non rimane che collegare il 
trasduttore all'apparecchio con un 
cavetto schermato a due conduttori 
e un connettore DIN ISO gradi, a tre 
o a cinque poli; ne bastano comun¬ 
que tre. 

Realizzazione pratica 

Dato che l'apparecchio è stato in¬ 
serito in un contenitore TEKO P/2 


che pubblichiamo in scala 1:1. 

Nella figura 8 è visibile lo schema 
di cablaggio generale del dispositi¬ 
vo. Quanto al contenitore TEKO 
esso sarà forato come indica la figu¬ 
ra 9. 

Con la collaborazione di 
Electronique pratique 


Di questo progetto 
RadioELETTRONICA eCOMPUTER 
è in grado di fornire solo il circuito 
stampato. L'elenco, i prezzi e le 
modalità d ordine di questo edegli altri 
circuiti stampati disponibili sono 
riportati alle pagine 81 e82. 


Componenti 

Resistenze 1/4 W 5%_ 

RI: 470 Q (giallo, viola, 
marrone) 

R2. R4. R6: 100 kQ (marro¬ 
ne, nero, giallo) 

R3: 10 kQ (marrone, nero, 
arancio) 

R5: 1 kQ (marrone, nero, 
rosso) 

R7 a R20: 270 Q (rosso, viola, 
marrone) 

PI: trimmer orizzontale 100 
kQ miniatura 

Condensatori_ 

C1.C2: 10 pF tantalio perla 16 
V 

C3: 22 nF ceramico 

Diodi_ 

DI: 1N4148 o equivalente 
D2: LED rosso 0 3 mm 

Circuiti integrati _ 

IC1: MC14069 o equivalente 
(sei invertitori) 

IC2: MCI4518 o equivalente 
(2 contatori BCD) 

IC3, IC4: MC14511 o equiva¬ 
lente (decodificatore BCD 7 
segmenti) 

Vari _ 

Al, A2: visualizzatori a cato¬ 
di comuni MAN 74A o 54A 
Cp: trasduttore fotoelettrico a 
finestra Telefunken CNY36 o 
Motorola MOC 7821 
1 interruttore d'accensione 
miniatura 

1 spina DIN a 3 o 5 poli 180° 

1 presa DIN a 3 o 5 poli 180° 

1 contenitore TEKO P/2 

1 lastra plexiglas 107x67 mm 
4 pile da 1,5 V tipo R6 più 
supporto 4 pile tipo R6 

2 metri di cavetto schermato a 
2 conduttori 

2 serracavi Legrand modello 
grande 

10 serracavi Legrand modello 
piccolo 

2 distanziatori I = 15 0 6 

2 distanziatori 1 = 606 

3 distanziatori 1 = 10 0 9 per il 
disco del trasduttore. 

























Oltre al connettore di espansione, ed al connettore per collegare i Microdrive supplementari, il 


Pulsante di reset 

Permette di cancellare il contenuto della memoria 
del computer senza scollegare l'alimentazione 


Connettore di estensione Microdrive 



Interconnessione In reti locali: QLAN 

Un collegamento per comunicazioni ad alta velocita 
per intercollegare fino a 64 computer Sinclair QL 
oppure ZX Spectrum I dati vengono trasferiti lungo 
la rete ad una velocità di 100 kbaud, ed i protocolli 
garantiscono che le stazioni interessate siano pronte 
prima di inviare i dati, I dati possono essere anche 
distribuiti, tramite la rete, a tutti i computer in 
ascolto 

Versione Inglese 


Porta monitor 

Il Sinclair QL permette una risoluzione molto elevata 
quando e collegato ad un monitor Sono disponibili 
-due modi: 512 x 2S6 pixel, con quattro colon - 
nero, bianco, verde, rosso (oppure 4 gradazioni di 
grigio); 256 X 256 pixel, con 8 colon (oppure 8 
sfumature di grigio; e lampeggiamento. 

Il numero dei caratteri sullo schermo è determi¬ 
nato dal numero dei pixel, ma è disponibile una 
scelta di set di caratteri. Il formato normale e di 85 
colonne per 25 righe 

Possono essere usati sia monitori a colori (RGB) 
che monocromatici. 


Porta TV 

I modi di visualizzazione su TV sono gli stessi di quelli 
per il monitor, ma il formato normale è di 40 ..60 
colonne, a seconda del software 

Possono essere usati sta televisori a colon che 
B/N 


PACCHETTI SOFTWARE IN DOTAZIONE 



QL-QUILL 
Elaborazione testi 


QL-ABACUS 

Spreadsheet 


QL-ARCHI VE 

Gestione archivio dati - database 







































Connettore cartuccia ROM 

Accoglie una cartuccia QL ROM ed e sufficiente 
inserirla: possibilità di aggiungere fino a 32 K di 
ROM. 


Connettore di espansione per la scheda di memoria 
a O.S Mbyte e periferiche di prossima presenta¬ 
zione. - 


RS-232-C 

Due interfacce standard per comunicazioni con peri 
feriche come stampanti e modem Permette di tra¬ 
smettere a velocita che vanno da 75 a 19 200 baud. 
oppure di trasmettere e ricevere in duplex comple¬ 
to secondo sette velocita, fino a 9600 baud (un'mter- 
iaccu m parallelo per stampante saia disponibile 
come accessorio facoltativo). 


Joystick 

E previsto il collegamento di uno o due joystick per 
giochi oppure pei controllare il cursore II controllo 
del cursore può anche essere effettuato mediante 
quattro tasti separati sulla tastiera. 




QL-EASEL 

Grafica commerciale 
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• 

Giugno 1983 -L 5 000 • Programmi per ZX81 Meteore. Formula 1 Bombardiere. Il numero 
nascosto; Segnatempo, dimensionatore di circuito risonante e individuavate di bobina: 
esplosione Programmi per Apple il per scoprire quanto a lungo puoi vivere Progetti: 
percussioni elettroniche Alimentatore duale 20 + 20 Amplislereo3+3W Analizzatore ridessi 
Barra di LEO Prova integrati sonoro Amplimicrotonico Minivoltmetro a LED Filtro audio 
Centrale conteggio ottico Supetsirena modulata 12 V 
• 

Luglio 1983 - L 5 000 Piogramim per Apple li i tronchi dm tesoro Programmi per ZX81 
stimon (gioco di memoria) fantasmi, controllo del codice di partita IVA, bowling, battaglia 
spaziale Programmi per Texas TO', orologio digitale, Progetti minimixer Trasmettitore speri 
mentale FM Cloche per lo ZX81 Elettroscopio con display a LED Modulatore musicale 
Generatore di oscillogrammi video La casa stregata Lampeggiatore magico Ricevitore di 
segnali ottici Due radio FM cor il TDA7000 Sveglia del campeggiatore e allarme intermittente 
Cancabatterie al nickel-cadmio Come attrezzare il laboratorio 

Agosto 1983 -L 5000 Programmi per ZX81: calcolo dell impedenza di un circuito in serie e 
in parallelo, la schedina del Totocalcio; per far comparire sul video una alla volta Programmi per 
Appiè ;/ tris. Progett frequenzimetro digitale Sonda logica TL con indicazione a LED 
Alimentazione protetta per ZX81 Continuità, controllo rapido Oscillatore di nota milleusi Punk 
box per chitarra Mi eccito col segnale Allarme antifurto Telecomando con lampada a pila 
Ricetrasmittente ad ultrasuoni Convertitore 12 V/220 V 50 Hz, potenza 220 W Interruttore 
fotoelettrico. Capacimetro analogico universale- 

settembre 1983 - L 5 000 Programmi per ZX81 Labirinto Programmi per Spectrum e per 
ZX81 Pelota, Roulette Russa. Grafici a colon Programmi per Vie 20 Roulette Programmi per 
Apple ' generatore di istogrammi Progetti: frequenzimetro digitale 2a parte. Micropreampiifi- 
catore universale a FET Trasmettitore AM per Citizen Band Pati o dispari 7 Termostato a diodi 
La serratura di Re Mida E 1 buono il cristallo 7 Organo elettronico con tasti a sfioramento 
Superosciilofono morse Sequenziatore musicale 


Come fai se l’arretrato non ce l’hai? Ti sei 
perso un numero - o addirittura più 
numeri - nel corso di quest'anno? 
RadioELETTRONICA ti offre l’opportu¬ 
nità di rimetterti in pari. Di ogni arretrato 
troverai l’elenco dei progetti pubblicati quel 
mese. Affrettati a spedire la richiesta utilizzan¬ 
do il buono pubblicato nella pagina accanto: 
riceverai subito a casa il numero o i numeri che ti 
interessano senza aggravio di spese postali. 


Febbraio 1983 -L 5000- Programmi pei Apple II pei compilare la schedina del Totocalcio: 
per vedere quanta memoria c'è ancora nel dischetto Programmi per Atom un orologio che 
segna ore, minuti e secondi Atan 400 e 800. per controllare il conto in banca Programmi per 
ZX81 per mettere tutto in ordine alfabetico; per disegnare sul video, una dieta su misura, 
anagrammi a tutto andare, traduttore morse, tiro ai piattello Progetti voltmetro digitale per 
alimentatore regolabile in tensione corrente. Comando per scambi ferroviari Logica do il 
yoursel Monitor di batteria scarica Sonda per logica TTL Monostabrie improvvisato Raddriz¬ 
zatore di precisione Complesso ricetrasmittente a quattro canali il ricevitore Allarme antidistra 
zìone per auto Baby TX microtrasmettitore Miniricevitore per onde cortissime e CB Interfono 
per moto 
• 

Marzo 1983 - L 5000 - Pr&grammi per Apple II per cambiare il carattere delia stampante 
Programmi per ZX81 Slot machine; Tombola; un gioco di memoria; gioco di dadi Programmi 
per VIC20 Briscola Un programma per qualsiasi computer la legge di Ohm Progetti semaforo 
antitut Preampli microfonico 0M e CB Telecomando apparecchi elettrici Luce automatica 
notturna Alimentatore auto Bottoncino accendi e spegni MimgeneraloreBF Oscillatore morse 
Sirena monotonafe Adattatore per contagiri. Luci psichedeliche Spaventapasseri elettronico. 
Rivelatore di allargamento Mimampllficatore BF Antifurto a ultrasuoni per automobile 
• 

Aprile 1983 - L 5 000 - Programmi per ZX81 per progettare con il timer 555 Programmi per 
Apple li un database per la tua biblioteca Programma per tutti personal indovina la parolina 
Progetti cardiotachimetro visivo e sonoro Microtrasmettitore telegrafico a onde corte. Interrut 
tore a combinazione Generatore di onde quadre Ampiioperazionale lampeggiante Esplosione 
da ntegrato. Doppio interruttore Per tare squeich Rivelatore d> presenze infrarossi Metal 
detector Wattmetro per RF Micropinze macroeconomiche Amplificatore per superbassi 
• 

Maggio 1983 - L 5 000 - Programmi 


del 

professionale 
Baby spia 
codice segreti 


dei codice fiscale, il gioco 
Progetti antifurto 
ferroviario elettronico 
elettronico Serratura a 


Ampiiteiefonico Tutti sugli IC digitali 








• 

Ottobre 1983 • L 5 000 Programmi per ZX81 Calendario Programmi per Vie 20 Battaglia 
Navale Programmi per Apple Dadi e punti Progetti display musicaiea LED perauto Scheda 
a 20 uscite per ZX81 Applicazione pratica delia scheda Allarme aita temperatura Occhlorobot 
CMOS Apriti Sesamo Parla al telefono Timer elettronico per tempi lunghi Frequenzimetro 
digitale 3a parte Tre ricevitori OM per chi comincia Antenne e prese di terra 

• 

Novembre 1983 ■ L 5 000 - Programmi per Apple, Indovinati numero Programmi per ZX81 
L'isola dei tesoro; Black Jack Programmi per Spedrum Autodiagnosi per computer e accessori 
Programmi per Vie 20: Slot Machine Progetti doppio comando per Apple ZX81 e ZX80 la 
nostra memoria aumenta cosi Ricevitore CB canalizzato Ampliaudio 5W Fotografia: program¬ 
matore d'agitazione Frequenzimetro digitale ultima parte. Generatore di rumore a RF Temporiz¬ 
zatore a ciclo ripetitivo Acceso o spento? 


Dicembre 1983 L 5 000 - Programmi per ZX81, dimensionatore pei filtri passabasso. 
passaaito e passabanda, battaglia aerea Programmi per TI99 A la schedina del Totocalcio: ; 
numeri uguali di Monica, Sharp PC 1211 anagrammi Programmi per Vie 20 lo sciatore. 
Programmi per Spedrum La grande sfida Progetti generatore di suoni per ZX81 Antifurto ad 
ultrasuoni Ricevitore UHF banda aeronautica Interruttore ottico Tutto sull' HI-FI il suono 
(amplificatore media frequenza) Montecarlo sul CIP Stetoscopio 

• 

Gennaio 1984 - L6 000 - Programmi per ZX81 formule per realizzare circuiti stampati 
bioritmi; a domanda risponde Programmi per Spedrum Marilyn (gioco grafico); n salto dei 
muro Programmi per Vie 20, Invadere, Slogans e scritte sui video; Videopittore Programmi per 
Apple per ripassare la geometria Progetta Interfaccia morse per ZX81 Ampliantenna auto 
M.FM Salvavita differenziale. Baby RX, ricevitore OM Misuratore d ; livello ultrasonico Tutto 
suil'HI-FI 2a parte Ricevitore calibrato, ascolto assicurato Energizza cristaiH Elevatore di 
cariche elettrostatiche. Generatore di audio e radiofrequenze Converter sommergibili e radiofari 
• 

Febbraio 1984 - L .6 000 - Programmi per VIC 20; un orologio di precisione la palla che 
rimbalza, biliardo Programmi per Apple / battaglia navale. Programmi per Spedrum: Ranoc¬ 
chio Programmi per ZX81 Equivalenze tra sistemi di unità di misura diversi; Caccia al numero; 
La corsa dei cavali' Programmi per Commodore 64 Per tradurre un numero decimale nel suo 
equivalente in base diversa Tanti consigli per trarre il massimo dal vostro Personal Progetti 
interfaccia joystick per lo Spedrum. Due sirene elettroniche. Voltmetro digitale per auto Modulo 
ampli rivelatore Applausometro a LED Preampli stereo RIIA Tutto sul' HI-FI: gli altoparlanti 
(3) Mimgeneratore BF li prestamph Ricevitore antibattena Reflexando s'impara. 

• 

Marzo 1984 - L 6 000 - Programmi per Commodore 64 calcolo del consumo calorico 
Programmi per ZX8t la schedina dell'Enalotto e dei Totip Programmi per HP85 puffi 
Programmi per VIC 20: Indovina il numero, Prova riflessi, Flipper Programmi per Apple Le 
tasi lunari e gli anni bisestili Consigli utili per trarre il massimo dai tuo Personal Progetti 
Interfaccia monitor universale SuperVU-Mster a LED Gii strumenti di RE e C .il rack Trasmetti¬ 
tore OM/ tOW Ricevitore geodinamico VLF Psicomodulatore ottico, Tuangami il tango. CMSO 
+ cristallo = oscillatore Sincroflash audio. Melaradio Tuoni fulmini e LED 


Aprile 1984 - L 6 OOO Programmi per Commodore 64 rubrica telefonica, Formule elettroni 
che. Programmi per Spedrum: tris. Programmi per tutti i personal, sor! numerico e alfabetico. 
Programmi per Vie 20. la schedina vincente; impariamo la datti agrafia. Programmi per ZX81 
notoslalom; ZX pittore Programmi per Sharp MZ-700 calcolo dell equo canone Programmi 
per Tl 99 4A il biscione (supergioco) Progetti Interfaccia seriale RS-232 per C 64 Ricevitore 
mulhgamma in reazione Interfaccia nastri per Vie 20 e C 64 Clarinetto digitale Che cosa c'è nel 
cristallo Se mi tacchi scatto L'oscillatulto 

• 

Maggio 1984 .6.000 Programma per tutti i computers. per controllare i consumi der autoo 
dei'a moto; un dala base per hobby o per lavoro. Programmi per Apple Ile, un emozionante gioco 
di caccia alla tigre Programmi per Spedrum a disposizione un muro, una palla e una racchetta, 
chi riuscirà per primo a far breccia nel muro 7 , un programma per trasformare un innocuo 
Spedrum nella piu perfida slot machine: indovina la combinazione (ii programma gira anche su 
ZX) Programmi per ZX81 il Sinclair ti chiede i gol della domenica e automaticamente calcola la 
schedina del Totocalcio Programmi per Commodore 64 e Vie 20- con un metodo di studio a 
schede e il tuo Commodore, imparerai ringtese in men che non si dica Progetti espansione di 
memoria per Vie 20, per trasformare una vecchia radio in un ricevitore ultramoderno, ampliaudio 
da 2 Wall, rilevatore di campi elettromagnetici a bassa frequenza miniricevitore OM, tester per 
nastri magnetici, le guide di Radioelettronica e Computer tutto sulla controreazione; converter 
universale, discriminatore FM oscillatore ad altissima frequenza 

• 

Giugno 1984 - L 6000 Programmi per Commodore 64 per sviluppare la telepatia (i 
programma gira anche su Spedrum) dati statistici a portata di mano hi programma gira anche 
■u Vie 20) Programmi per Apple Ile rivelatore di circuiti Programmi per Spedrum scaccia'a 
PLice, affonda la nave Programmi per Vie 20; motocross, come a Las Vegas Programmi per 
T e*as T99 4 il Simon in versione elettronica Progetti Vumeter a 10 led; come potenziare 
i autoradio, timer acustico; minirtcevitore OM. come proteggere impianto Hi-Fi le guide di 
Radioelettronica e Computer, le porte logiche, interfaccia a nastri per Vie 20 e Commodore 64 
Pre ampli piu; Stereo silenziatore 

• 

Luglio 1984 L 6 000 Programmi per tutti i Personal per verificare la tua efficienza fisica 
Programmi per Olivetti MIO il grafico deile vendite mese per mese Programmi per ZX81 
colpisci quell 'aereo Programmi per Apple Ile e Ile: per studiare le curve di Lissajous Programmi 
per Spectrum Clown e palloncini; trasforma H tuo Spedrum in un traduttore Morse; missione 
impossibile Commodore 64 tutto sul Simon s basic, come creare istogrammi a tre dimensioni 
Progetti superespansione di memoria per Vie 20; miniricevitore; energizzatore LC, prova 
transistor digitale, le guide di Radioelettronica e Computer: circuiti, come tarli funzionare subito, 
radiospia miniaturizzata, mmlncevitore, i suoni che vuol in attoparlante 



Agosto 1984 • L, 6.000 • Programmi per Commodore 64 il computer li dice quale olio solare 
usare e fa una tabella personalizzata dei tempi di esposizione ai sole per una tintarella ideale, 
prendendo in esame latitudine, altitudine, condizioni climatiche della stazione turistica dove fi 
trovi, ecc. (il programma è provvisto delle varianti per tutti i calcolatori che funzionino in Basic), 
per gestire le scorte in cucina Programmi per Spectrum una gara di slalom Programmi per Vie 
20: guerre stellari il Labirinto, tutti i colori degli OHM Programmi per Apple Ile Ih cronometro 
digitale Programmi per Sharp 700; calcolo dellTNVIM Programmi per ZX81, Spectrum e HP85 
Safari matematico. Progetti per eliminare il fruscio dello Spectrum; sonda logica a display 
audiorelè supersensibUe; ricevitore banda marittima: elettroserratura a combinazione eguide d 1 
Radioelettronica e Computer i circuiti pseudo risonanti, amplificatore di suoni, mimncev'tore 
onde corte; metronomo minimo. 


Settembre 1984 • L 6.000 Programmi per Commodore 64 gestione del campionato di 
calcio Programmi per MIO gesbone voti scolastici Programmi per Spectrum- come creare 
figure in grado di muoversi da sole Programmi per Vie 20 guerra Ira carriarmah Tabella dei 
comandi accettati dalla CPU 6502 e schema a blocchi interno della CPU, con in omaggio 'I 
poster della memoria del Vie 20 Progetti, per compilare automaticamente la schedina del 
Totocalcio, antenna elicoidale OC. trasmettitore FM da 1 Watt Le guide di Radioelettronica e 
Computer, i transistor unìgiunzione trasmettitore OM prova cristalli, oscillatore a radio 
frequenza e minitrasmettitore in fonia, mimocevitore per onde medie 

Ottobre 1984 - L 6 000 Programmi per Spectrum: come scontiggere il terribile fantasma che 
impedisce all'omino di cibarsi delle sue pillole bianche 7 Un nuovo Microdrive con l’interfaccia 
ZX 1 da collegare allo Spectrum per memorizzare con eleganza Microprogramma per ZX1 il 
computer crea la moda su misura Programmi per Apple: 11 fiore giusto per il messaggio giusto 
Programmi per Commodore 64: un aiuto per gli smemorati Programmi per ZX81 calcolo del 
segno zodiacale per superstiziosi e non Programmi per Vie 20. un metodo per titolare i 
videogames II computer diventa consulente dei campioni dei ciclismo Spectrum: caccia ai 
vampiri Commodore 64. 37 secondi per sistemare il cubo di Rubik. Consigli per il Vie 20 
Antifurto universale: e il ladro non ta più paura, Ampllcuffia per chi pretende il massimo da un Hi- 
Fi Momtor acustico per una trasmissione senza sorprese Trasmettitore antibobine per 
risparmiare tempo e delusioni Calibratore di tensione come punto di riferimento. Radiorìcevi 
(ore per onde corte fdeabase: S-meter digitale per ricevitore; sensibile ondametro RF 


Novembre 1984 • L 6 000 - Adventure game per Spectrum come strappare io scienziato 
don isola deserta 7 Programmi per Commodore 64 una tipografia personale Messaggi per tutti 
gusti Spectrum,Gioco atterraggio di fortuna. Programmi per Vie 20 piu ordine nell agenda, 
battaglia per il Grand Pnx soccorso agli studenti d matematica Vic-Rel casa automatica. 
Trentuno Led in una matrice per far sbizzarrire la fantasia Due ampliaudio più un pre Leguide di 
Radioelettronica e Computer i transistor umgiunzione (seconda parte). Una tastiera telefonica 
del tutto legale 


Dicembre 1984 - L 6 000 - Programmi per Spectrum duello a colpi di laser, schemi disegnati 
precisi e veloci Programmi per Vie 20 e Commodore 64 penna ottica per scrivere sul monitor 
Programmi per Olivetti M 10: come aprire una cassaforte e rimanere onesti. Programmi per 
Commodore 64, astronumerologia computerizzata per sposarsi in tutta tranquillità. Programmi 
per Apple stelle benefiche sul video Sette magnifiche alternative per l’ampiisonoro da abbinare 
ai Sinclair Basta un generatore a radiofrequenza e un ampliaudio per ottenere un ricevitore 
sincrodma pei onde medie e corte Le guide di Radioelettromce e Computer tutto sui Led un 
amplificatore per cuffie 


RE 3 


Tagliando richiesta arretrati 


Per ricevere a casa, ssenza aggravio di spese postali, l’arretrato o gli 
arretrati che ti interessano, compila e spedisci subito questo tagliando 
in busta chiusa a 

RadioELETTRONICA & Computer - C.so Monforte, 39 - 20122 Milano 

Sì! Inviatemi i seguenti numeri arretrati di 
RadioELETTRONICA & Computer 

mese/mesi di . 


Cognome e nome . 

Via . N. 

Cap . Città . Provincia . 


□ Allego L . 

□ Allego ricevuta di versamento di L .sul conto 

corrente postale n. 19740208 intestato a Editronica srl - corso 
Monforte, 35 - 20122 Milano 

□ Allego assegno di L.non trasferibile intestato a 

Editromca srl 


Data 


Firma 





















Commodore 
64 ^ ^ 


ARCHIVI 


L ibro prestato, libro regalato. 

Non è propriamente un prover¬ 
bio. ma potrebbe aspirare a diven¬ 
tarlo. per il suo innegabile, triste 
contenuto di universale validità. 
"Guarda che si chiama Pietro" oppu¬ 
re "questa volta però me lo segno" 
sono miseri tentativi, del tutto per¬ 
denti. di arginare lo stillicidio ope¬ 
rato da amici, parenti, colleghi e 
persino visitatori occasionali ai dan¬ 
ni della biblioteca più importante 
del mondo: la vostra. 

Non solo i lettori a scrocco, però, 
attentano alla sua integrità: disordi¬ 
ne, confusione e archiviazioni arruf¬ 
fone sono i principali nemici di ogni 
raccolta, anche la più modesta, di 
libri e m iste. Se poi la biblioteca da 
amministrare è di dimensioni rag¬ 
guardevoli (è il caso, per esempio, 
di quelle scolastiche) lo scotto da 
pagare in caso di malaccorta gestio¬ 
ne aumenta proporzionalmente: 
ore e ore di lavoro alla ricerca del 
volume smarrito, dell'alunno sba¬ 
dato, del bidello imputato... 

Un buon programma di archivia¬ 
zione. se ben mirato, risolve tutti i 
problemi di ogni bibliotecario, an¬ 
che del più distratto e smemorato. 
"Archiv" può archiviare fino a 1.000 
titoli e gestire le schede prestito re¬ 
lative a 200 utenti; tutti i suoi input 
sono controllati, è protetto contro 


inserimenti e manovre errati, si ser¬ 
ve di maschere video chiare e belle e 
svolge ben 13 diverse funzioni. I ti¬ 
toli archiviati, inoltre, possono esse¬ 
re ulteriormente catalogati e rag¬ 
gruppati. a seconda del loro conte¬ 
nuto. grazie a un archivio che gesti¬ 


sce fino a 40 codici. 

Un’avvertenza. 11 programma 
funziona su Commodore 64 con uni¬ 
tà a floppy e il floppy disk viene 
interamente sfruttato: per l’utilizza- 
zione del programma "Crea", che 
accompagna "Archiv” e serve per la 


Listat o “ARCHIV ”_ 

90 P0KE45,123 JP0KE46,33!P0KE47,130 :P0KE43,33:P0KE43,130:FQKE50,83 :CLR 
100 POKE53280,0 s P0KE53S81,0!GOTO3S0 

135 REM *************** SUBROUTINE PER INTESTA? IONE *************** 

110 PRINT-I"; 

120 PRINT"iaa BIBLIOTECA PRIVATA- SS I" ; 

130 PRINT"|_«SOFTWARE BY: BURIN CARL0BBJ3T 

132 PRINT" GESTIONE AUDIO-VIDEO-BIBLI0TECA“ 

135 PRINT"-----"sRETURN 

140 REM *********** SUBROUTINE INPUTAZIONE CONTROLLATA ************** 
150 K = 1024 +Y+X*40iIFI<32ANDI>95THENRETURN 

155 IF I >63AND I OSTHENI = I -G4 

156 POKEK,I:X*=Z$ 

160 FORJ=K +1TQK +Z!POKEJ,111 

170 GETZ$:IFZ*=""THEN170 

180 LI=ASC (ZS>slFLI<> 13THEN220 

130 P0KEJ,32:IFJ=K+ZTHEN290 

200 J=J+l:GOTO 130 

220 IFWO20THEN260 

230 I =LEN(X$):IFI=0THEN170 

240 POKEJ,32:X*=LEFT*<X*,1-1)iJ=J-1:IFJ<KTHENJ=K 

250 POKEJ,111 : GOTO 170 

260 IFW>63ANDLK36THENW=LI-64 

270 IFLK 33ANDLD35THEN170 

280 POKEJ,l/J:X*=X*+Z* 

230 NEXTJ:RETURN 

300 REM *********** SUBROUTINE PER CORREZIONE DATI ************* 

310 PRINT"SCORRE?IONE DATI? S=SI - RETURN=NO" 

320 GETZJ:IFZS="“THEN320 
330 W=ASC<Z3>> : IFU1= 13THENZÌ= *N” 

340 IFZ$="N"0RZ$=“S"THEN360 
350 GOTO320 

360 PR INT“D O"'.RETURN 
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trovo l'Oriundo 
i, divento furioso 



Quanti di storia, quali di letteratura, chi li ha scritti, 
su quale scaffale sono, a chi sono stati prestati? 
Tenere in ordine i libri non è cosa da poco; 
quelli di una biblioteca scolastica, poi... 



creazione di tutti i file, è necessario 
un secondo dischetto. 

Il primo file: "libri" 

"Archiv" utilizza quattro file di ti¬ 
po relativo, nel primo dei quali, di 


1.000 record, sono definiti i seguenti 
campi: 

1) campo di 1 byte: qui il program¬ 
ma registra il carattere "1" se viene 
archiviato qualcosa, il carattere nul¬ 
lo (" ") se si effettua una cancellazio¬ 
ne In fase di registrazione, i record 


del file vengono letti a partire dal 
primo, e la registrazione avviene là 
dove il programma incontra un va¬ 
lore nullo. 

2) campo di 6 byte: contiene un co¬ 
dice utile per effettuare videate su 
articoli della stessa natura, quan¬ 
do il programma svolge la routine 
"ricerche". Con l’attribuzione di due 
codici diversi, per esempio, si pos¬ 
sono distinguere testi di storia da 
testi di informatica ed è sufficiente 
fare una ricerca sul codice per videa- 
re solo i testi di un gruppo. Inoltre 
un opportuno file "codici" memoriz¬ 
za il significato dei vari codici utiliz¬ 
zati per l'archiviazione. 

3) campo di 30 byte: contiene il tito¬ 
lo dell'oggetto. 

4) campo di 30 byte: contiene il no¬ 
me dell’autore. 

5) campo di 30 byte: contiene il no¬ 
me della casa editrice e l eventuale 
codice di catalogo. 

6) campo di 10 byte: contiene la data 
di acquisto. 

7) campo di 6 byte: contiene il prez¬ 
zo del libro. 

Secondo file: "prestiti 

Per questo file sono previsti 200 
record; i cui campi sono: 

1) campo di 1 byte: vi viene registra¬ 
to un carattere ("1" oppure " ") come 


370 REM ********** MENU' DEL PROGRAMMA ********** 

330 GOSUB110 
390 PR INT"3hENU ' 

400 PRINTTAB<10)5"ffll = ARICAMENTO MATERIALE “ 

410 PRINTTABC10);“1^=30ANCELLAZIONE MATERIALE" 

420 PRINTTAB<10>;"B3=iPEGISTRAZIONE PRESTITO " 

430 PRINTTABC 10>; "||4 = *ISTINZ IONE PRESTITO 
440 PRINTTAB<10);"05»*/ IDEATE GENERALI 
445 PR IMTTAB < 10 ); "116 =3ARCH IV IO CODICI 
447 PRINTTAB <10);"©7 = 23 ICERCHE fl" 

443 PR !NTTAB< 10 ) ; "Ì6-2USC1TA DA PROGRAMMA 
450 PRINT-aSCELTAsS*. “ 

460 GETZt:IFZS =""THEN460 

470 I=VAL(Z*>: I^IC1ORI)8THEN460 

430 PQKE 1671 ,32 :PQKE1672,I+43:G0SUB31Q 

430 !FZ4="3“THENPR TNT' TTn " SGOTO450 

500 OMIGOSUB520,1340,1790,2305,3331,5330,6770,3000 
510 GOTO330 

515 REM ********* ROUTINE CARICAMENTO TESTO ********* 

520 G0SUE110 

525 AS=“ “:B*=" ”:C*=" ":D$=" “:E*=" " 

530 PRINT" ©ZARICAMENTO : fl®' 1 
535 PRINT" ©SCODICE 1.fl" 

540 PRINT"QflTITOLO ■.* 

550 PR 1 NT " OlJAUTOR I ■." 

560 PRINT" ©EDITORE!.S" 

570 PRINT"OSDATA DI ACQUISTO!." 

580 PRINT"MC0ST0!.fl" 

730 PQKE1431,31 

740 GETZi:IFZ$=""THEN740 

750 I=ASC<Z*>: IFI = 13THENP0KE 1431 ,32:GC'TO730 
755 IFI=20THEN740 

760 P0KE1431,32:X=10;Y=3;2=5-GOSUB150 (continua) 

770 A*=X$: 
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Se non trovo l'Orlando divento furioso 


780 P0KE1511,31 

790 GETZ$:IFZ$=""THEN790 

800 I=ASCCZ*):IF I =13THEMP0KE1511,32:GOTO830 
805 IFI=20THEN790 

810 P0KE1511 ,32: X = 12: Y=8:Z =29: 60SUB150 
820 B*=X*:X*=“" 

830 P0KE1551,31 

840 GETZ$sIFZ$="”THEM840 

850 I =ASC <Z$> s IF I =13THENP0KE 1551,32 : GOTO880 
855 IFI=20THEN340 

880 POKE1551,32:X=13:Y=8:Z=29:GOSUB150 
870 C*=X*:X*=” 

880 P0KE1591,31 

890 GETZ$:IFZ$-"“THEN890 

900 I=ASC<Z$): IF I = 13THENP0KE 1591 ,32 ! GOTO930 
905 IFI=20THEN390 

910 P0KE1591,32 sX=14 s Y=8:Z =29s GOSUB150 
920 D*=X*:X$="" 

930 POKE1880,31 

940 GETZ*:IFZ$=""THEN940 


950 I =ASC (Z* ) ; IF I = 1 3THENP0KE 1880 ,32 : GOTO980 
955 IFI=20THEN940 

960 POKE1680,32 :X=16!Y=17iZ =9 !GOSUB150 
970 E$=X$:X*=““ 

980 POKE1709,31 

990 GETZ*:IFZ*=""THEN990 

1000 I=ASC (Z $):IFI = 13THENP0KE1709,32 : GOTO 1030 
1005 IFI=20THEN990 

1010 POKE1709,32 :X=17 sY=6:Z =5 :GOSUB150 
1020 FÌ=X$:X$=’* 

1030 G0SUB310 

1040 IFZ$= “S"THEN730 

1050 PRII-TT" ^ATTENDERE PREGO... ARCHIVIAZ I ONE " 
1060 0PEN1,8,15!0PEN2,8,2,“LIBRI,L,"+CHRÌ(120) 
1070 FORX=ITO 1000 !Y=X!Z =0 
1030 IFX >256THENZ = INT<X/256)!Y=X-<2 *256) 

1090 PRINTUÌ,"P"CHR$<2)CHR*<Y)CHR$<Z)CHR$< 1 ) 
1095 GET#2,H*:K=VAL<H$) 

1100 IFK< >0THEN1270 
1110 H$="1":GOSUB8240 


nel caso del file "libri". 

2) campo di 14 byte: contiene il co-\ 
gnome dell'utente. 

3) campo di 11 byte: contiene il no¬ 
me dell'utente. 

4) campo di 14 byte: via e numero 
civico. 

5) campo di 11 byte: numero di tele¬ 
fono e prefisso. 

6) campo di 14 byte: la città. 

7) campo di 5 byte: il C.A.P. 

8) campo di 2 byte: la sigla della 
provincia. 

9-13) campi di 4 byte ciascuno: 
contengono il numero, o i numeri 
(fino a 5), corrispondenti ai titoli 
dati in prestito. Se i titoli sono più di 
5. è necessario utilizzare un secondo 
record. 

14) campo di IO byte: contiene la 
data del prestito. 

Tetro file: codici 

Su questo file, composto da 40 
record, si possono archiviare tutti i 
codici per la catalogazione; ogni re- 
-cord è costituito da due campi: il 
primo, di 6 byte, conterrà la sigla, il 
secondo, di 30, la descrizione. 

Quarto file: "servizio" 

E' un file piccolissimo (un solo 
record formato da 2 campi di 6 byte 
ciascuno), ma molto utile: contiene 
infatti il numero di record più alto su 
cui si è registrato nel file "libri" e il 
numero di record più allo su cui si è 
registrato nel file "prestiti". In fase 
di videata è così possibile sapere in 
quale punto il programma deve fer¬ 
marsi; piu avanti, infatti, non c'è 
registrato nulla. 


1250 PRINT"B3REGISTRATO COL NUMERO... X : A=X:X=1000 : GOTO 1275 

1270 IFX=1000THENPRINT"REGISTR. IMPOSSIBILE, ARCHIVIO COMPLETOA=0 
1275 NEXTX;CL0SE2 

1280 0PEN2,8,2,“SERVIZIO,L,"+CHRÌC14) 

1290 PRINT#1,"P”CHR$ < 2)CHR$(1>CHR$<0>CHRS<1):GETW2,H*,L$,M*,N$,0$,PS 
1295 H$=H$+L*+M*+N*+0$+P$:I=VAL(H*)iIFI>ATHEN1310 

1300 PRINT#1,”P n CHR*(2)CHR3(1>CHR$<0>CHR*(1):H$=STR*<A):PRINT#2 ,H$ 

1310 CL03E2: PRINT#1,"I“:CLOSE1 
1320 GETX*:IFX$=“"THEN1320 
1330 RETURN 

1335 REM ************* ROUTINE CANCELLAZIONE MATERIALE ************* 

1340 GOSUB110 

1350 PRINV'Oa N.RO MATER.DA CANCELLARE <0=RITORNO> 

1360 PRINT”!_” 

1370 POKE1384,31 
1380 GETZ$:IFZ$=”“THEN1380 
1390 I=ASC<Z$):IFI=13THENRETURN 
1400 IFI=20THEN1330 

1410 POKE1384,32:X=9iY*l:Z=3sGOSUB150 

1420 I=VAL <X$):PRINT“D CD" :PRINTI;IFI=0THENRETURN 

1430 0PEN1,8,15!0PEN2,8,2,"SERVIZI0,L,"+CHR*<14) 

1440 PRINTUÌ,"P"CHR*(2)CHR$(1)CHR*<0)CHR$<1):GET#2,H$,L$,M$,N$,0* 

1450 H$=H*+LS+M*+N$+0$:J=VAL<H$) 

1460 IFJ< ITHENPR I NT " TESTO INESISTENTE" : CL0SE2 : PR INT# 1 , “ I " : CLOSE 1 : GOTO 17É: 
1470 CL0SE2:PRINTUÌ,"I":0PEN2,8,2,"LIBRI,L,"+CHR$(120) 

1480 A=I:B=0iIFI>256THENB=INT(1/256):A=I -<B*256) 

1490 GOSUB8390 
1555 CL0SE2:CLOSE1 
1560 X=I:GOSUB8480 

1620 PRINT"3=ER CANCELLARE SCRIVI -CANCELLA-" 

1630 PRINT” M.“:X=20iY=0iZ=8:1=32:Z*=”“!GOSUB150 

1640 IFX*< >“CANCELLA“THEN1770 

1645 0PEN1,8,15:0PEN2,8,2,"LIBRI,L,"+CHR$<120> 

1650 H$="0 * 

1661 A3>=" " : B$= " " 

1662 C*=“ 

1663 E$=“ “:F$=" " 

1664 Di=" 

1670 Y=A:Z =B:GOSUB8240 

1740 PRINT"aCANCELLAZIONE EFFETTUATA":CL0SE2:PRINTUÌ,“I":CLOSE 1 
1780 GETXì:IFXÌ=“"THEN1760 
1770 RETURN 

1780 REM ************ ROUTINE REGISTRAZIONE PRESTITI ************** 

1790 GOSUB110 

1800 A$=" ":B$=” ":C$='' “:D*=" ":E*=" ":F$=" “:G*=“ “:X$=" ":I$=‘ 

1805 H1 $ =" n :H2$=" ":H3*=“ ":H4$=" ":H5*=“ “ 

1810 PRINT°aa?EGISTRAZ. PRESTI TI”:PRINT 

1820 PRINT"CUCOGN. ■. B*)ME ■." 

1830 PRINT"3yIA/N.S. 3TEL. ■." 

1840 PRINT”aCITTA'S. J8DAP 1.“ 

1850 PRINT■ JFROV. B ..“:PRINT 

1860 PR INT" BOIA T. RIT.i.“ 

1870 PRINT’SiaOATA DEL RITIRO BQ.B“ 

1880 POKE1390,31 

1890 GETZ$:IFZ3>=""THEN1890 
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1900 I=ASC(Z$):IFI = 13THENP0KE1990,3£:GOTO2030 
2000 IFI=20THEN1890 

20 10 POKE1390,32 : X=9 :Y=7:Z = 13 :GOSUB150 
2020 A*=X*:X*="" 

2030 POKE1411,31 

2040 GETZ$iIFZS="“THEN2040 

2050 I=ASC<Z*)iIFI = 13THENP0KE1411,32 :GOTO2O30 
2060 IFI=20THEN2040 

2070 POKE1411,32 s X=9 !Y=28:Z = 10!GOSUB150 
2080 B*=X*:X$="“ 

2090 POKE1430,31 

2100 GETZ$:IFZ$="“THEN2100 

2110 I=ASC(Z$)sIFI = 13THENP0KE1430,32:G0T0215G 
2120 IFI=20THEN2100 

2 130 POKE1430,32 :X=10 :Y=7:2 = 13 :GOSUB150 
2140 C*=X*:X*=“" 

2150 POKE1451,31 

2160 GETZ*:IFZ*="“THEN2160 

2170 I=ASC<Z$>!IFI=13THENP0KE1451,3£:GOTO2210 
2180 IFI=£0THEN2160 

2190 POKE 1451 ,32 ! X =10 :Y=£3:Z = 10 sGOSUB 150 
2200 D*=X*:X$=”" 

2210 POKE1470,31 

2220 GETZ$:IFZ*=""THEN2220 

2230 I=ASC<Z$):IFI=13THENPOKE1470,32:GOTO22?0 
2240 IFI=20THEN2220 

2250 POKE1470 ,32!X=11 :Y=7:Z = 13 :GOSUB150 
2260 E$=X*:X$=“" 

2270 POKE1491,31 

2280 GETZ*:IFZ*="“THEN22S0 

2290 I =ASC. (Z$) ! IFI = 13THENP0KE 143 1 ,3£:GOTO£330 
2300 IFI=2èTHEN2280 

2310 POKE1491,32■X=11iY=28:Z=4 :GOSUB150 
2320 F*=X$:X$=“■ 

2330 POKE1510,31 

2340 GETZ$’> IFZ$ = “ “THEN2340 

2350 I=ASC<Z*)iIFI = 13THENP0KE1510,32 :GOTO2390 
£360 IFI=20THEN2340 

2370 POKE1510,32!X=12:Y=7:Z = 1 :GOSUB150 
£380 G$=X*:X$=“" 

£390 POKE1593,31 


2391 GETZ$s IFZ$= " "THEN2391 

2392 I =ASC (2$) s IF I = 12THE I 'F0KE 1593,32 = 00702450 

2393 IFI=£0THEN£391 

£394 POKE!593,32 :X=14 s Y=10 ìZ =3 s GOSUB150 
2395 H1$=X*:X$="" 

£296 POKE1599,31 

2337 GETZ$sIFZ$=""THEN2397 

2398 I= ASC(2$):IFI = 13THENP0KE1599,32 :G0TO245G 

2399 IFI=20THEN2397 

£400 POKE1599,32 s X=14 :Y=16 i 2=3 :GOSUB150 

2401 H2**X*!X*="" 

2402 POKE1605,31 

3403 GETZ$!IFZ$=“"THEN2403 

2404 I=ASC<Z*>:IFI = 13THENP0KE1605,32 :GOTO2450 

2405 IFI=20THEN2403 

£406 POKE1605,32:X=14:Y=22:Z=3:GOSUB150 
2407 H3$=X$!X$="" 

£408 POKE1611,31 

2403 GETZ$:IFZ*=""THEN2409 

2410 I=ASC<2$>: IF I =13THENP0KE1611,3£iGOTO£450 

2411 IFI=20THEN2409 

2412 POKE1611,32 :X=14 :Y=28:Z =3 :GOSUB150 

2413 H4$=X*:X$='"' 

2414 POKE1617,31 

2415 GETZi:IFZ$=""THEN2415 

2416 I =ASC < Z*): IFI = 13THENP0KE1617,32 :GOTO2450 

2417 IFI=20THEN2415 

2418 POKE1617,32s X=14 :Y=34:Z =3iGOSUB150 

2419 H5$=XS:X$="" 

2450 POKE1650,31 

2460 GETZ$:IFZ$=""THEN2460 

2470 I=ASCCZ$):IFI=13THENP0KE1650,32!GOTO2510 
2480 IFI=20THEN2460 

2490 POKE1650,32 :X=15 :Y=27:Z =9 :GOSUB150 
2500 1$=X$:X*="“ 

2510 GOSUB310 

2520 IFZ*="S“THENPRINT "CE": GOTO 1830 
2530 PRINT"ATTENDERE L'ARCHIVIA? IONE...“ 

2540 0PEN1 ,8,15s 0PEN2 ,8,2 , “PRESTITI ,L, *' ♦CHRf <. 116) 
2550 FORX =1TO200 
£560 A=X:P=P 


Il programma 

Uno sguardo al listato evidenzia 
che tutto, tranne il menù principale, 
è individuabile da tante subroutine, 
la cui funzione è segnalata dalle va¬ 
rie REM. 

La riga 90 serve solo, nel caso di 
lancio di un altro programma, a fis¬ 
sare 1 puntatori delle varie aree im¬ 
piegate nella RAM: se nella compi¬ 
lazione del programma si dovesse 
variare qualcosa, anche un semplice 
asterisco, i valori di quei POKE an¬ 
drebbero aggiornati. In ogni caso 
conviene caricare la riga 90 (ma si 
può addirittura non caricarla affat¬ 
to) per ultima. La riga 100 fissa il 
colore del bordo e dello sfondo, che 
può essere naturalmente variato. 

Dalla riga 100 il programma sal¬ 
ta alla 380 per la videata del menu; 
tra queste due righe si trovano tre 
subroutine: "intestazione", modifi¬ 
cabile, "inputazione controllata", 
che controlla la quantità di caratteri 
durante i caricamenti e nel caso di 
stringhe con numero di caratteri 


25~0 PRINT#! , “P"CHR*<2 >CHR*<A >CHR**: B>CHR#‘ 1 ' GET#2 ,L* : K=VAL (Li> 
2580 IFX=200ANDK<>0THENPR INT" JèARCH IV10 COMPLETO"!NEXTX:GOTO2770 
2530 IFKO0THEN2710 
2600 GOSUB8560 

2700 PRINV2REGISTRAT0 COL NUMERO “! X :A = X:X=200 
£710 NEXTX!CL0SE2 

2720 PR I NT # 1 , “ I" : 0PEN2,8 ,2, "SERV12 IO ,L, " +CHR*14 ) 

2730 PRINT#1,"P"CHR$<2),CHR$<1>CHR*C0)CHR$<8) 

£-40 GET#2,L$,MÌ,N*,0$,P$:L* = L$+M$+N*+0$«-P*: K =VAL (Lf ) 

£-50 IFK>ATHEN2770 

2-60 PRINT#1,”P"CHR*<2)CHR$<1)CHR*<0)CHR*(3)!H$=STRi<A)!PRINT#£,H5 
£770 CL0SE2 : PR INT# 1 , * I" : CLOSE 1 
2730 GETZ$:IFZ$=“"THEN2730 
2790 RETURN 

2300 REM *********** ROUTINE ESTINZIONE PRESTITI *********** 

£805 GOSUB110 

2810 PRINT"eai.RO UTENTE DA CANCELLARE <0=RETURN> 

£820 PRINT *S ..." 

2830 POKE1344,31!X$="" 

2840 GETZ*:IFZ*="“THEN2840 
£350 I=ASC(Z $)! IFI = 13THENRETURN 
2860 IFI=20THEN2340 

2370 POKE 1344 ,32 ! X=8 !Y=1i2 =2 ! GOSUB 150 

£330 B=0:A=VAL<X$)iPRINT"O □":PRINTA 

£890 0PEN1,3,15:0PEN2,8,2,"SERVIZI0,L,"+CHR*<14) 

2900 PRINT#1,"P"CHR$<2)CHR$<1)CHR*<0)CHR3><8):GET#2,L$,M*,N*,0*,PS 
£910 L$=L*+M*+N$+0*+P$:K=VALCL$> 

2320 IFA >KTHENPR I NT ■ 3MESSUNA REGISTRAZ I ONE '* ! CLOSE2 : CLOSE 1 i GOTO3360 
2930 CL0SE2 :PF: INT# 1 , “ I " 

2935 0PEN2,8,2,"PRESTITI,L,"+CHR*<116 ) 

2940 X=A 
2950 GOSUB8720 

3040 CLOSE2:PRINT#1,"I"!CLOSE1 
3050 PRINT":GOSUB3370 

3110 PRINT-ga^ER CANCELLARE SCRIVERE -CANCELLA-" (continua) 
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Se non trovo l'Orlando divento furioso 


prestabilito, e "correzione errori", 
che monitorizza la richiesta a proce¬ 
dere nel programma, o a ripetere 
qualcosa, o inline a variare qualche 
inserimento. (Una segnalazione per 
i neofiti del basic: le righe dalla 100 
alla 350 sono "esportabili", così co¬ 
me stanno, in qualsiasi altro listato 
si voglia compilare; non è difficile 
comprendere come operano e. 
quindi, dove possono essere appli¬ 
cate.) 

Il menù è costituito da 8 funzioni; 
l'invio a quella desiderata avviene 
alla riga 500 con un GOSUB: il resto 
del listato è costituito da subrouti¬ 
ne. qui intese come operazioni ripe¬ 
titive e comuni a varie funzioni ( rou¬ 
tine) di menù. 

Funxioni 

del programma 

Sono, come già detto. 8, selezio¬ 
nabili dal menù principale con i tasti 
"1", "2" eccetera. Una volta effettua¬ 
ta la scelta, compare la scritta 
"CORREZIONE DATI S=SI RE¬ 
TURN =NO"; premendo "S" si può 
riformulare la scelta, mentre pre¬ 
mendo return (oppure "N") il pro¬ 
gramma procede. 

• caricamento materiale. Sul video 
una freccetta (che poi diventa una 
lineetta bianca) indica lo spazio nel 
quale inserire una nuova voce; re¬ 
turn dopo return si forma un'intera 
"pagina" di nuovi inserimenti (se 
una voce esaurisce lo spazio asse¬ 
gnatole. rappresentato da una serie 
di puntini, va a capo automatica- 
mente, senza bisogno di premere 
return). 

Una volta compilata la pagina, il 
programma salta alla subroutine di 
richiesta conferma; se si vuole ope¬ 
rare qualche correzione, si preme 
"S": apparirà una freccetta, accanto 


3120 PRINT" . 11 

3130 POKE1744,31:X$=““ 

3140 GETZS:IFZ*=""THEN3140 
3150 I=ASC<Z*)lIFI = 13THENRETURN 
31B0 IFI=20THEN3140 

3170 POKE1744,32:X=13 :Y=1:Z=7:GOSUB150 
3180 IFX$< >"CANCELLA"THENRETURN 
3130 A*=“ 

3200 C*=" “:D$=" ” 

3210 E$=“ “:F$=“ “iG*=“ " 

3220 Hl*=" ■iH2$=" “s H3$=" "SH44=“ ":H5$=” 

3225 I*=" 

3230 0PEN1,8,15:0PEN2,8,2,"PRESTITI,L,"+CHR$(116) 

3235 PRINT#1,"P"CHR$<2)CHR$<A>CHR$(B>CHR$<1):PRINT#2,“ “ 
3240 GOSUB8570 

3340 CL0SE2 : PR INT# 1 , " 1 11 : CL0SE 1 

3350 PRINT"SiJCANCELLAZ IONE EFFETTUATA“ 

3360 GETZ$:IFZ$=""THEN3360 
3370 RETURN 

3380 REM *************** ROUTINE V IDEATE ************ 

3331 0PEN1,8,15:0PEN2,8,2,“SERVIZIO,L, u +CHR4K14) 

3382 PRINT»1,"P"CHR*(2)CHR$<1)CHR$<0ICHRSK 1) 

3333 GET#2,H$,L*,M*,N$,0*,P*:H*=H*+L$+M*+N*+0*+P*:E=VALO«O 

3384 PRINT#1,"P“CHR$<2)CHRÌ<1)CHR*<0)CHR$<3) 

3385 GET#2,H*,L*,M*,N*,0$,P*:H*=H$+L$+M*+N*+0*+P*:F=VAL<H*) 
3336 CL0SE2:CLOSE1 

3390 GOSUB110 

3400 PRINT"Si; IDEATE ARCHIVI 0 

3410 PRTNTTAR( 10); " dMMMB l = JV IDEATA MAGAZZINO" 

3420 PRIIMTTAB< 10); "l|2=av IDEATA UTENZE 
3425 PRINTTAB <10);"83 = ®) IDEATA USCITE 
3430 PR 1 NT " MKKH3 E. CELTA ■ . “ 

3440 POKE1751,31 
3450 GETZ$:IFZ*=""THEN3450 
3460 I=ASC <Z$>SIFI = 13THENRETURN 
3470 IFI=20THEN3450 

3480 POKE 1751,32: IFI>63ANDI<96THENI=I-63 

3490 POKE1752,1 :C=VAL(Z$):IFC=0THENRETURN 

3500 IFO3THEN3440 

3510 G0SUB310 

3520 IFZ$=”S"THEN3440 

3530 GOSUB 110 

3600 IFC=1THENPRINT"33^RCH IV10 COMPLESSIVO MATERIALE 
3610 IFC=2THENPRINT"M3 £ iRCHIVIQ COMPLESSIVO UTENTI 
3620 IFC=3THENPR I NT " Sil^RCH IV 10 MATERIALE USCITO 

3630 PR INT " JJ-IUMERO PROGRESS. fi." 

3640 POKE1361,31 
3650 GETZ$:IFZ*=“"THEN3650 
3660 I - ASC(Z$):IF 1 = 13THEN3390 
3670 IFI=20THEN3640 

3680 POKE1361,32 :X=3:Y=13:Z=4 :GOSUB150 
3690 X=VAL(X$):X$="":IFX=0THEN3390 
3695 IFX< =ETHEN3790 

3700 IFX>ETHENPRINT°a|i|=lTTENZ IONE, USCITA DALL'ARCHIVIO" 
3710 GETZ$:IFZÌ=""THEN3710 
3720 RETURN 

3790 A=X:B=0:IFA>256THENB=INT(A/256):A=A-(B*256) 

3800 0PEN1,8,15:PRINT#1,"I":0PEN2,8,2,"LIBRI,L,"+CHR$(120) 
3810 GOSUB8390 
3890 CL0SE2:CLOSE 1 
3900 GOSUB8430 

-"P?® PR INT" «<dF 1 -AVANTI -- F3 = INO IETR0 -- RETURN=F INE©" 


©" : G0T03638 
©" :GOTO4078 
O" : GOTO450E 


4000 GETZS:IFZ*=""THEN4000 
4010 I=ASC(Zi):IFI=13THEN3390 
4020 IFZÌ= "fi"THENX=X+ 1 : GOTO4050 
4030 IFZ*=°a"THENX=X-l:GOTO4050 
4040 GOTO4000 

4050 IFX<lTHENX=l:GOTO4000 
4055 IFX >ETHENX=E:GOTO4000 
4060 PR INT " m~II 11 nTTTl " : G0T03790 

4070 PRINT'^IUMERO PROGRESS. fi." 

4080 POKE1361,31 
4090 GETZi:IFZ$=”"THEN4090 
4100 I=ASC(Z$)•IFI = 13THEM3330 
4110 IFI=20THEN4090 

4 120 POKE 136 1,32 : X=3 : Y= 13 : Z =4 : GOSUB 150 
4130 X=VAL <X$ ) : X$= 11 “ : IFX=0THEN3390 


4140 IFX< =FTHEN4130 

4150 IFX >FTHENPRINT"aaATTENZ IONE, USCITA DALL'ARCHIVIO" 

4160 GETZ$:IFZ*=""THEN3710 
4170 RETURN 
4130 A=X:B=0 

4190 0PEN1,3,15:PRINT#1,“I“:0PEN2,3,2,"PRESTITI ,L,"+CHR$< 116) 
4200 GOSUB8720 
4210 GOSUB3870 
4330 CL0SE2:CLOSE1 

4410 PR INT"iF 1 =AVANTI -- F3= INDIETRO -- RETURN=F INEfflgT 

4420 GETZi:IFZ*=""THEN4420 

4430 I=ASC(Z$):IFI=13THEN3390 

4440 IFZ$="fi"THEKK=X+1 :GOTO4470 

4450 IFZ$="5"THENX=X * 1 : GOTO4470 

4460 GOTO4420 
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4470 IFX<1THENX=1 :GOTO4420 
4430 IFX >FTHENX=F : GOTO4420 
4430 PR INT“ 11111111111 II " i G0T04 180 

4500 PRINT"i£>A UT. N. ■ 

4501 POKE1353,31 

4502 GETZ*: IFZ$=""THEN4502 

4503 I =ASC (Z$):IFI= 13THEFP0KE 1353 ,32 : G0T0333C 

4504 IFI=20THEN4501 

4505 POKE1353,32 : X =3 :Y=10 :Z =4 :GOSUB150 
4508 X=VAL(X$)sIFX<1THEN3330 
4507 IFX >FTHEN4501 

4510 PRIIMT"©^ 1 = PAG. AVANTI -F3=PAG. INDIETRO-RET.=FINE“ 

4520 A=X: B=0 

4530 OPEN1,8,15:PRINT#1,”I":0PEN2,8,2,"PRESTITI,L, "+CHR$<116) 

4535 PRINT#1,"P"CHR*(2)CHR*<A)CHR$<B)CHR*<3):INPUT#2,A* 

4540 PRINT#1,"P"CHR*(2)CHR*(A)CHR$CB)CHR$<31):INPUT#2,H1$:C=VALCH1S) 

4550 PR INT# 1 , "P”CHR*<2)CHR$<A)CHR$':B )CHR$(86) ! II'F'UTttE ,H2*: D=VAL <H2$) 

4560 PRINT#1,"P”CHR$(2)CHR$< A)CHR$(B)CHR$(91):INPUT#£,H3*:G=VAL<H3*) 

4570 PRINT#1,"P"CHR$<2)CHR$(A )CHR$<B)CHR$<96):INPUT#2,H4$:H=VAL <H4$) 

4580 PRINT#1,“P"CHR$< 2)CHR*<A>CHR$CB)CHR$(101):INPUT#2,H5$:I=VAL<H5$) 

4590 CL0SE2:PRINT#1,"I" 

4600 0PEN2,8,2,“LIBRI,L,”+CHR3K 120> 

4610 B$="":IFC<10RC>ETHEN4630 

4615 A=C:B=0:IFC>256THENB=INT(C/256>:A=C-B*256 
4620 5 PR INT# 1 , “P"CHR*(2)CHR$<A)CHR*<B)CHR$< 10) : INPUT#2,B$ 

4630 C*=“":IFD<1ORD>ETHEN4650 

4640 A=D:B=0:IF0>256THENB=INT(D/256):A=D-B*256 
4645 !PRINT#1,"P"CHR*(2)CHR*<A>CHR$<B)CHR$<10):INPUT#2,C$ 

4650 D$="":IFG<1ORG>ETHEN4670 
4660 A=GiB = 0:IFG>256THENB=INTCG/256):A=G-B*256 
4665 PRINT#1,"P"CHR$<2)CHR*(A)CHR$<B)CHR*<10):INPUT#2,DS 
4670 ..... 

4630 A=H:B = 0:IFH>256THENB=INT(H/256):A=H-B*256 
4635 PRINT#1,"P“CHR*<2)CHR$<A)CHR$<B>CHR$(10):INPUT#2,ES 
4690 F$= n ":IFI<10RI>ETHEN4710 
«’00 A=I:B=0:IFI>256THENB=INT<1/256):A=I-B*256 

4705 PRINT#1,"P"CHR$<2)CHR*<A)CHR$<B)CHR*<10): INPUT#2,F$ 

4710 PRINT"»!.RO ■ 19119"; X 

4720 PR INT"3C0G. ■ ; AT: "SI" 

4730 PRINT" lllllliir;C:PRINTTAB<6); "O 

4750 PRINT" 19999913" 5D:PRINTTAB<6); "□ 

4760 PRINT " |W——i————" ; Ci 
4770 PRINT" IHmU"/G:PRINTTAB(6)) “□ 

4790 PRINT" 1999111» ;H:PRINTTABC6); "□ 

4300 PRINT 1199991999991199119191111191191 ; Zi 

4310 PRINT" UNtf ) I : PR INTTAB ( 6 ) ; " □ 

4320 PR INT " 1F$ 

4330 CL0SE2!PRINT#1 , " I ” :CLOSE1 
4340 GETZ*:IFZ$=""THEN4840 
4350 I=ASC< Z * ) :IFI = 13THEN3330 
4360 IFZ*="i"THENX=X+l:GOTO4390 
4370 IFZ$="S"THENX=X-1;GOTO4890 
4330 GOTO4340 

4390 IFX<ITHENX=1 :GOTO4340 
4900 IFX)FTHENX=F:GOTO4840 
4910 PR INT" rTTTTTTTTT :G0T045?0 
5920 REM **************** ROUTINE GESTIONE CODICI **************** 

5930 GOSUB110 

5940 PRINT"aa3ESTIONE CODICI" 

5950 PR I NTTAB ( 10 ) ; " MMM P1 - JTAR 1 r.AMFNTn CODICI " 

5960 PR I NTTAB < 10 ) ; "|12 = aC ANCELLAZ IONE CODICE" 

5970 PRINTTAB<10);"03 = »; IDEATA CODICI 
5930 PRINT " fWiiia^ C. FI. T A ■*.“ 

5990 GETZt:IFZS=""THEN5990 

6000 I=A3CCZ$): IFI = 13THENRETURN 

6010 IFI=20THEN5390 

6020 IFI>63AMDI< 96THENI = I-64 

6030 POKE1751 ,32:POKE1752,1 

6040 I=VAL(ZS):IFI=0THENRETURN 

6050 IFI>3THENP0KE1751,31:POKE1752,46 :GOTO5990 

6060 G0SUB310 

6070 PRINT"dT' •IF2$="3“THENPOKE1751,31:GOTO5990 
6030 GOSUB110 

6090 IFI = 1THEMPRINT"33CARICAMENTO CODICI - NESSUN COD.=FINE 0" :B=1 :G0T06120 
6100 IFI=2THENPRINT"aa;:AICELLAZI0NE CODICI F 1 ^CANCELLA 0“:GOTO6410 

6110 IF I=3THENPR INT“a|iJ7 IDEATA CODICI - F 1 «AVANZAMENTO 0 RET. Q" :A=1 SGOTO6620 (continua) 

S1C0 PRINT"ia CODICE» flARGOMENTO ■" 


alla prima voce, che farete scendere 
premendo return fino alla voce da 
correggere. 

Se invece si conferma l'esattezza 
degli inserimenti, apparirà la scritta 
"ATTENDERE PREGO... AR¬ 
CHIVIAZIONE" e poi, ad archi¬ 
viazione effettuata, la scritta in cam¬ 
po inverso con il numero del record 
interessato. 

Premendo a questo punto return 
si ritorna al menù; l'operazione ri¬ 
chiede qualche secondo perché il 
programma, prima di chiudere i ca¬ 
nali con il floppy, deve verificare se 
il record utilizzato è nuovo e, in que¬ 
sto caso, registrare il suo numero sul 
file "servizio". 


• cancellazione materiale. Scelta 
questa funzione, il programma si 
predispone a ricevere il numero del 
record da cancellare, che non deve 
superare il valore dei record impie¬ 
gati; in questo caso il computer lo 
segnala con la scritta in campo in¬ 
verso "NESSUNA REGISTRA¬ 
ZIONE" e si è costretti a premere 
return per rientrare nel menù. Se il 
numero è corretto, invece, viene ef- 
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fettunta la lettura del record, e poi 
presentata sul video con il messag¬ 
gio "PER CANCELLARE SCRIVI 
"CANCELLA"'' (qualsiasi altra 
scritta riporta al menù). Dopo aver 
cancellato, il programma comunica: 
"CANCELLAZIONE EFFET¬ 
TUATA^_ 

• registrazione prestiti. Il program¬ 
ma lavora come per la registrazione 
dei titoli, con la sola differenza che 
dalla voce "MATERIALE RITI¬ 
RATO", se non vi si inserisce nulla, 
si passa subito alla successiva. Que- 
sto va ricordato in caso di correzio¬ 
ni, perché per correggere il numero 
del secondo o del terzo oggetto riti¬ 
rato bisogna ridigitare tutti i numeri 
precedenti. . . v 

Per evitare lunghe macchinosità, 
il programma non c inoltre protetto 
da errori quali l'attribuzione del nu¬ 
mero di un titolo all'utente sbagliato 
o l'attribuzione a un utente di un 
numero inesistente; attenzione, 
quind i, a non sbagliare. _ 

• estinzione prestiti. Il programma 

lavora come per la cancellazione 
materiale"._ 

• videate generali. Questa Iunzio¬ 
ne, una volta scelta, rimanda a sua 
volta a un piccolo menù di tre voci: 
videata magazzino; videata utenze; 
videata uscite. Si sceglie una di que¬ 
ste opzioni (con i tasti ’T \ " 2 ' o 3 ) 
oppure, con return, ci si riporta al 
menù principale. La videata magaz¬ 
zino chiede il numero del record che 
si vuole leggere, e fa poi apparire sul 
video la pagina; con la funzione P1 
si procede al record successivo. 


:B*=" 


S130 FORA=1TO40:A$=" 

G140 PRINT"0 . 

6150 POKE1344+B+40,31 
6160 GETZ*: IFZ*=“ "THEN6160 

6170 I =ASC<Z*>! IF I = 13THENA=40:f'EXTA: GOTO6400 
6180 IFI=20THEN6150 

6130 POKE 1344 +B*40 ,32 s X=8 +B : Y= 1 ! 7 ~5 ’• GOSUB 1 ->0 
6195 A*=X*!X*=‘" 

6200 POKE1351+B*40,31 
6210 GETZ*:IFZ*=""THEN6210 

6220 I=ASC (Z *>:IFI = 13THENP0KE1351+B*40,32 :GOTO6250 
6230 IF I =20THEN6£ 10 

6240 POKE1351+B*40 ,32 : X=3 +B : Y=8:Z =28 :GOSUB1j0 
6245 B*=X*:X*=‘“ 

6250 GOSUB310 

6260 PRINT-m" s IFZ*= "S 11 THEN6150 

6280 0PEN1 ,8,15!PRINTUÌ , “ I " lOPENS,8,2, “CODICI ,L , " +CHR*<33) 

0230 FORK=1TO40 

6300 PRINTUÌ,"P”CHR*<2>CHR*<K>CHR*<0>CHR*<1):GET#2,CS 

6310 IFC*< > 11 * " ANDC*{ > “ “THEN6340 

6320 PRINT#1,»P"CHR*<2>CHR*<K>CHR*<0)CHR*<1):PRINT«2 ,A* 

6330 PRINTUÌ,»P"CHR*<2>CHR*<K>CHR*<0>CHR*<S>:PRINT#c,B*.K*40 

6335 PRINT n a?EGISTRAZIONE OK” 

6336 GETZ*:IFZ*=""THEN6336 

6337 PRINT"0 □" 

6340 NEXTK!CU0SE2!CLOSE1 

6350 B=B + 1 : IFA=10.THENB= 1 :G0T06355 

6351 IFA=20THENB=1JG0T06355 

6352 IFA=30THE1'E= 1 • G0T06355 

6353 GOTO6380 
6355 GOSUB 110 

6360 PR INT“ MflZAR ICAMENTO CODICI - NESSUN COD . =F INE Q 
6370 PRINT“ISa CODICE! 3 ARG 0 MENT 0 ■ 

6380 NEXTA 

6390 GETZ*:IFZ*=""THEN6390 

R4 m OPESU S 8 0 15 : PR I NT# 1 , " I " 0PEN2 ,8,2," COD ICI , L , " +CHR * < 33 ) 

6420 FORK = 1TO40 : PRINT#1,"P“CHR*<2 >CHR*<K >CHR*<0 >CHR*<1 >! INPUT#2 ,A* 


6430 PRINTA*,‘.NEXTK 
6440 CL0SE2sCLOSEl:PRINT 

6450 PR INT “SCODI CE DA CANCELLARE ■." 

6460 POKE1805,31 
6470 GETZ*:IFZ*=”“THENS470 
6480 I=ASC CZ*) !IFI = 13THEN5930 
6490 IFI«20THEN6470 

6500 POKE 1305,32 : X=19 : Y=22 : Z=5 : GOSUB150 
6510 C*=XS:X*=“" 

6515 PRINTTAB<28);"CH3ETURN 0 F1” 

6520 GETZ*:IFZ*="“THEN6520 
6530 I=ASC<Z*>:IF1=13THEN5930 
6535 IFZ *="■" THEN6550 
6540 G0T06510 

R c l c i0 OPFN1 8 15 J PR I NT# 1 , ° I “ < 0PEN2 ,3 ,2 , “COD ICI ,L , ' +CHR*'. 3d 
6560 FORK =1TO40:PRINT#1,"P"CHR*<2>CHR*<K>CHR*<0>CHR*(1>:INPUT#2,A* 

6570 IFA*<>C*THEN6600 _, 

6580 PRINT#1,"P“CHR*<2)CHR$<K>CHR*<0>CHR*<1):PRINT#2, 

6590 PRINTttl ,"P“CHRÌ<2)CHR*<K)CHR*';0)CHR$<3) 

li . u ~A^l 

6595 PRINT#2,’ 

6600 NEXTK 5 CL0SE2 SPRINT# 1, “ I '' ! CLOSE 1 : GOSUB 110 

6610 I =2 ! G0T06100 „ 

6620 0PEN1,8,15!PRINT#1,* I":0PEN2,8,2,"CODICI,L, ♦CHR*<38) > 

6625 PRINT"BaCODICE! ^ARGOMENTO PAG INA 11 ; A; II 
6630 FORK = 1TO40 

6635 PRINT#1,”P“CHR*(2)CHR*(K)CHR*<0)CHR*<1) : GE:T#2,A* 

6636 : IFA*=""ORA*=" “ORA*= “ 4"THENLETA*= " « " ! B*= 4 ! GOTO6660 

6640 PRINT#1,*P'CHR*<2)CHR*<K)CHRS(0)CHR*<1>»INPUT#2,A* t 

6650 PRINT# 1 ,“P“CHR*<2>CHR*<K>CHR*<0)CHR*<8>: INPUT#2 ,B*.Bi-LEFTÌ'.B* ,30 > 
6660 PRINTA*!PRINTTAB<7);JB* 

6670 IFK = 10ORK=20ORK = 30ORK = 40THENA=A+1•GOTO6680 
6675 GOTO6740 

6680 GETZ*!IFZ*=""THEN6630 

6690 B=ASC<Z*)!IFB= 13THENK =40:NEXTK:CL0SE2:CLOSE1:GOTOj930 
6700 IFZ*=”1°THEN6720 
6710 GOTO6680 

Ivi? ISlìT-i»/IDEATA CODICI - FI«AVANZAMENTO 0 RET. fi» !IFA=5THENA«1 
6730 PRINT"BJDODICE! ^ARGOMENTO PAGINA";A; "Il 
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6740 

6750 

6760 

6770 

6780 

6730 

6800 

6810 

6820 

6830 

6840 

6350 

6860 

6870 

6880 

6890 

6300 

6910 

6920 

6930 

6940 

6950 

6360 

6970 

6375 

6380 

6330 

7000 

7010 

7015 

7020 

7030 

7040 

7050 

7060 

7070 

7080 

7030 

7095 

7100 

7110 

7120 

7130 

7140 

7150 

7160 

7170 

7180 

7130 

7195 

7200 

7210 


7240 
7250 
7380 
7330 
"400 
7 4 10 
"420 
"470 
"425 
7 440 

"450 

7 430 

7470 

"430 

"430 


7500 

7510 

7560 

7530 


NEXTK: I=3 :CL0SE2:CLOSE1 :GOSUB110 
G0T06110 

REM ************ ROUTINE RICERCHE *********** 


GOSUB! 10 

OPEN1 ,3, 15 ! PR INT# 1 , “ I “ : 0PEN2 ,8 ,2 , "SERI/ IZ 10 ,L, “ +CHRÌC 14 > 
PRINTttl,"P"CHR$<2)CHR$(1)CHR*<0)CHRÌ<1 >:INPUT#2,A$:D=VAL <A$) 
PRINT#1,"P“CHR*C2)CHR$(1>CHR$<0>CHR$<8)i1NPUT#2,A$:E=VALCA*) 
CL0SE2:PRINT#1,•I":CLOSE 1 
PRINT"333ERVIZIO RICERCA : gM" 

PR INTTAB ( 10 ) ; "111 = JJARCH IV IO UTENZA 
PR INTTAB ( 10 ) J "ffie = aARCHIVIO MAGAZZ INOflfl" 

PR INT " siSSCELTA : ■*-. “ 

GETZ*:IFZ$="“THEM6860 

I=ASC<Z*):IFI=13THENRETURN 

I =VAL (.Zi ) : IF I < 10R I >2THENPR INT “OD' 1 : GOTO6850 

POKE1531,32:POKE1592,1+48 

G0SUB3 10 


IFZÌ- “S 11 THFNPR INT " im " : GOTO6850 
IFI=2THEN7620 
GOSUB 1 10 

PRINT"M2BERVIZIO RICERCA UTENTI SATTENZIONE“ 

PR INT" ALLA FORMULAZIONE ESATTA DEI DATI QSST :C=0 
PR I NT 11 1 «COGNOME ■ 2 = »10ME 

PR INT"1(3=371 A/N. ■ 4 = tfrEL. 

PRINT"B5=fl3 ITTA' 1 6=3CAP " 


PRINT’lfZ^ROV ■ 8 = ST'1AT. RIT." 

PRINT"S3 = tfDATA ■ 0=tf!ITORNO “ 

PR INT "IEKI4.RO VOCES+." 

GET^$:IFZ$=""THEN7010 

I=ASC(Zi): IFI = 130RZ$=”0"THENRETURN 

C=VAL<Z$) 

IFC>9ORC=0THENPRINT"[H3" :GOTO7000 
POKE1713,32:POKE1714,1 

PRINT" □" 

IFC=10RC=30RC=5THENL*="." :Z = !3 


mentre con F2 si retrocede al prece¬ 
dente; con return, infine, si fa ritor¬ 
no al piccolo menù. Il meccanismo è 
lo stesso per la \ideata utenze; la 
videata uscite richiede in più il nu¬ 
mero di un record utente e visualiz¬ 
za il cognome dell’utente e i titoli a 
lui prestati. 

• archivio codici. Anche questa fun¬ 
zione ha un suo piccolo menù: 1) 
caricamento; 2) cancellazione; 3) vi¬ 
deata Il caricamento avviene codi¬ 
ce dopo codice: per ognuno viene 
richiesta la conferma e appare la 
scritta "CARICAMENTO OK" (se 
questa scritta non compare significa 
che l'archivio codici è completo); 
per caricare il codice successivo bi¬ 
sogna premere return. 

La cancellazione codici avviene 
con FI; i 40 codici appaiono sul vi¬ 
deo su una matrice di 10 righe per 4 
colonne e il loro ordinamento grafi¬ 
co viene automaticamente riforma¬ 
to dopo ogni cancellazione. 

La videata codici, infine, permet¬ 
te di vedere tutti i codici registrati in 
quattro pagine video, che possono 


IFC=20RC=4THENL$=’.":Z=10 

IFC=60RC=8THENLÌ=”.":Z=5 

IFC=?THENLì=".." : Z = 1 

IFC=9THENL$= ".“ :Z=3 

PRINT"dPESCRIZ. 1 "IL* 

POKE1753,31 
GET2$:IFZ*=""THEN7120 
I=ASC<Z$):IFI=13THENRETURN 
IFI=20THEN7120 

POKE1753,32 :X=18 :Y=10 :GOSUB150 
L*=X*:XS="" 

G0SUB3 10 

IF?$= "S" THFNPR INT 11 m~m " :GOTO7Q00 
K = 1 :H$="B" 

QPEN1,8,15:PRINT#1,"1":0PEN2,3,2, 
"PRESTITI,L,"+CHR$(116) 

GOSUB!10 

PR IN 7- "RICERCA UTENZE: 

F1=AVANTI - F3=INDIETRO©" 

8=0 :A=K 

X=K:GOSUB3720 

IFC=1ANDL*=A*THEN7510 

IFC=2ANDL*=B$THEN7510 

IFC=3AN0L*=C*THEN7510 

IFC=4ANDL*=D*THEN7510 

IFC=5ANDL*=E*THEN?510 

IFC=6ANDL$=F$THEN7510 

IFC=7ANDL*=G*THEN7510 

IFC=8ANDL*=H1*0RLÌ=H2*0RL$=H3$0RLS= 

H4iORL*=H5*THEN7510 

IFC=3ANDL*=I*THEN7510 

IFH*="1"THENK=K+1 

IFHf="5”THENK=K-1 

IFK >ETHENPRINT•S3 7 INE 

DELL 1 ARCHIVI OD” :K=E:G0T07520 

IFK< ÌTHENPRINT-MINIZ IO 

DELL'ARCHIVIOD":K =1 :GOTU7580 

GOTO7200 

GOSUB3870 

PRINT' , aa 5 REMI F1-F3 OPPURE RETURN" 
GETHi:IFH*="“THEN7580 
I=ASC<H $> : IFI = 13THEN7610 


7530 

7600 

7810 

7620 

7630 

7640 

7650 

7660 

7670 

7680 

7690 

7700 

7710 

7720 

7730 

7740 

7750 

7760 

7770 

7780 

7785 

7790 

7800 

7310 

7320 

7330 


2 = 3T ITOLO 
4=*DIT0RI * 

6 = 3DATA ACQ.Ìfil" 


IFHÌ="i"0RH$=THEN7460 
GOTO7580 

CL0SE2:CLOSE1 : RETURN 
GOSUB 110 

PRINT'MSERVIZIO RICERCA MAGAZZ ATTEN2 IONE " 

PRINT"ALLA FORMULA"IONE ESATTA DEI DATI QSM“:C=0 
PRINT * 1=3200ICE ■ 

PR INT "||3 = AUTORI ■ 

PR INT"©SCOSTO ■ 

PR INT" tia3 i. V0CEP-." 

GETZ$:IFZ$=““THEN7690 
I =ASC <Z$):IFI = 13ORZ*=”0"THENRETURN 
C=VAL (Zi) 

IFC >6ORC=0THENPRINT"CLE":GOTO7630 
POKE1712,32:P0KE1713,I 

PRINT" □" 

IFC=10RC=5THENL*=".":Z=5 

IFC=20RC=30RC=4THENL$= 

». : 2 =29 


IFC=6THENL$= ".” :Z=3 

PRINT"3DESCRIZ.1 "J Li 
POKE1752,31 
GETZS:IFZ$="“THEN7790 
I=ASC(ZÌ):IF1=13THENRETURN 
IF I =20THEN7790 


POKE1752,32 : X = 18 :Y=3:GOSUB150 
L$=X*:X$=“" 


7840 G0SUB310 

7850 IFZ $="S "THENPR INT "QUI]" : GOTO7680 
7360 K=1 :G$="fi" 

7830 0PEN1,3,15:PRINT#1,"I":0PEN2,8,2,"LIBRI,L,"+CHR*(120 > 
7330 GOSUB110 

7300 PRINT" *13? I CERCA TESTI: F1 =AVANTI - F3 = INO 1ETR0B" 

7310 IFK >256THEN0 = INT(K/256):A=K-<B*256) 

7920 IFK< =256THENB=0: A=K 
7330 GOSUB8390 

7330 I=LEN<L$):IFC=1ANDL*=LEFT*(A$,I)THEN3120 
"390 IFC=2ANDLÌ=LEFT$(B$, I )THEN3120 
3010 IFC=3ANDL$=LEFT$<C$,I)THEN8120 

0020 IFC=4ANDL$=LEFT$<D*,I)THEN3120 (continua) 
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3030 

3040 

8060 

8070 

3080 

8090 

8100 

3120 

8170 

3180 

8130 

3200 

8210 

3220 

3230 


3240 

8250 

8260 

8270 

8280 

3230 

3300 

3310 

8320 

3330 

8340 

8350 


IFC=5ANDLÌ=EÌTHEN31£0 
jFC=6ANDLÌ=FiTHEN8120 
IFG*="B"THENK-K.+ 1 
IFG$="H"THENK=K-1 
IFK>DTHENPRINT”3tìF!NE 

DELL'ARCHIVI0C3" :K=D:GDTO8180 
IFKClTHENPRINT"aaiNIZ IO 

DELL' ARCHIV10D" 5K = 1:G0T08180 

GOTO7830 
X =K : GOSUB8480 
PR1 NT 1 'FREMERE 

F1-F3 0 RETURN” 

GETG*:IFGÌ=""THEN8130 
1=ASC<GÌ):IFI=13THENS220 
IFG$="g"ORGÌ="S"THEN8060 
GOTO3180 

CL03E2:CLOSE1 : RETURN 
RDM ********** SUBROUTINE DI 
SCRITTURA NEL 
FILE - LIBRI ********** 
PRINTttl,-P”CHR*<2)CHRÌ<Y> 
CHR$<Z)CHRÌC1) 

PR1NT#2,HÌ 

PRINTttl,"P“CHRÌ<2)CHRÌvY> 
CHRÌ<Z)CHRÌ<3> 

PRINT#2,AÌ 

PRINTttl,”P"CHRi(2)CHRÌ<Y) 
CHRÌ<Z)CHRÌ(10) 

PRINT#2,BÌ 

PRINTttl,"P°CHRÌ<2)CHRÌ<Y) 
CHRiCZ)CHRÌ<41) 

PRINT#£,CÌ 

PRINTttl,"P”CHRÌ<£>CHRÌ<Y> 
CHRiCZ)CHRÌ(72) 

PRINT#2,DÌ 

PRINTttl, ”P 11 CHRt<2)CHRÌ(Y) 
CHRÌ<Z)CHRÌ<103) 

PRINTtt2,Et 


8360 PRINTttl,"P"CHRt<2)CHRt<Y)CHRÌ<Z>CHRÌ<114) 

8370 PRINTtt2,F$ 

llll REM^ ******* SUBROUT INE DI LETTURA DA FILE - LIBRI - ********* 
3330 PRINTttl,"P”CHRÌ<2)CHRi<A)CHRÌ<B)CHRÌ(1):INPUT#2,HÌ 
34 I 0 PRINT*l>P-CHR*<2)CHRS<ft) CH R*(B)CHR*<3>:lNPUT#2,A» 

8410 PRINTttl,"P”CHRÌ<2>CHRÌ<A)CHR*<B>CHRÌ<10)!!NPUT#2,Bt 
3420 PRINTttl,»P"CHRÌ(2)CHRÌ<A)CHRÌ<B>CHR*<41):INPUTtt^,Ct 
3430 PRINTttl, ”P"CHR*<2>CHRÌ<A>CHR*<B)CHRÌ<72>: ^UTtt^D* 

3440 PRINTttl,"P“CHRÌC2)CHR*<A>CHR$<B)CHRÌ< 103): I^UTtt2,E« 

3450 PRINTttl , "P”CHRi<2)CHR$<A)CHRÌ<B)CHRi< 1 14) : INPUTtt2 ,FÌ 

I 470 REN^#* *********** SUBROUT INE VIDEO - MAGAZZINO - »» *_*_*_*_*_* ****» 


';X:PRINT"a30DICE8 



lllllll 'ET 


********** 


essere scambiate a rotazione me¬ 
diante la pressione del primo tasto 
funzione. Si esce, come sempre, con 
return. 

• ricerche. E la funzione più impor¬ 
tante del menù: svolge infatti qual¬ 
siasi ricerca negli archivi di gestio¬ 
ne. Grazie a un piccolo menù si pos¬ 
sono scegliere: 1) archivio utenza; 
2) archivio magazzino. 

Fatta la scelta, il video presenta le 
varie voci dell'archivio e chiede di 
indicarne una; si digita il numero 
relativo e subito il programma ri¬ 
chiede la descrizione della voce da 
cercare. (Se, per esempio, si deside¬ 
ra effettuare una ricerca sui codici, 
si dovrà scegliere l’archivio magaz¬ 
zino, voce 1, e quindi inserire la si¬ 
gla del codice.) 11 programma ispe¬ 
ziona i vari record dell'archivio e si 
ferma su quello contenente la voce 
cercata. 

A questo punto si può continuare 
l'indagine, procedendo in avanti 
(con FI) o all’indietro (con F3), 
sempre che il programma (piccola 
finezza!) non segnali che si è giunti 
all'inizio, o alla fine, dei record 
esplorabili. 


3480 PR INT "BBJ'l. RO : ■ 

3490 PRINT“S13TITOLO:! 

8500 PRINT“| 

8510 PR INT" JJ^UTOR IJ 
3520 PR INT "| 

3530 PR!NT"3ZDITR.:■ 

3540 PRINT”||IHIIIHII 
3545 PR INT"S133ATA ACQ. 

8546 PRINT"SCOSTO ! 

8550 REM ********** SUBROUTINE REGISTRAZIONE - FILE PREoTITI 
8560 PRINTttl , n P”CHRÌ<2>CHRÌ<A>CHRÌ i :B)CHRÌ< 1 ) :PR1NT#2, 

8570 PRINTtt1,”P“CHRÌ<2)CHRt<A>CHRÌ<B>CHRÌ(3):PRINTtt2,AÌ 

3530 PRINTtt1 , ”P"CHRf < 2 )CHRi< A)CHRi< B >CHRi<18):PRINT#2,Bi 
8590 PRINTttl,“P"CHRt<2>CHRÌ<A)CHRÌ<B>CHRÌ<30>:PRINT#2,CÌ 
8600 PRINTttl,"P”CHRÌ<2)CHRÌ<A)CHRÌ<B)CHRÌ(45):PRINT#2,Di 
3610 PRINTttl,"P“CHR*<2)CHR*<A>CHR*<B)CHR*<57>:PRINTtt2,E* 

3620 PRINTttl,-P“CHR*<2)CHR*<A)CHR*<B)CHR*(72)sPRINTtt2,F» 

llll PRINTttr,"P”CHRS(2)CHR $ <A>CHR*<B)CHR*(78>:PRINTJ|,G* 

8640 PRINT#1,“P“CHRÌ<2)CHRS<A)CHRÌ<B>CHRÌ<81).PRINT#2,H 1$ 

PR;MTtti;»P”CHRSC2)CHR $( A)CHR*CB>CHR*C86)!PRINT#2,H2* 

3660 PRINTttl, "P''CHRÌ<2)CHRÌ<A)CHRi<B)CHRÌ<31):FRINT#2,HoÌ 
8670 PRINTttl,“P”CHRiC2)CHRÌ<A>CHRÌ<B>CHRÌ<96>sPRINT#2,H4Ì 
3680 PRINTttl,••P“CHR»C2)CHR*<A)CHR*(B)CHR*a01).PRINTtt2,H5* 

3690 PRINTttl,”P"CHRÌ<2)CHRÌ<A)CHRÌ<B>CHRÌ<106):PRINTttc,I* 

ITU REM* 1 ********** SUBROUT INE LETTURA - FILE PRESTITI ********** 
3720 PRINTtt1,"P"CHR$<2>CHR*<A)CHR*<B>CHR*<3):INPUTtt£,AÌ 
8730 PRINlTttl , "P“CHRÌ(2)CHRÌ<A)CHRt<B)CHRÌ< 18 ) : INPUT#2,Bt 
8740 PRINTttl ,"P”CHRÌ(2)CHRÌ<A)CHRÌ(B)CHRÌ(30): I^UT#2,CÌ 
3750 PRINTttl,”P"CHR*(2)CHR$(A)CHR*(B)CHR*(45):INPUT#2,D* 

8^60 PRINTttl ,"P"CHR*<£)CHR* i :A)CHRt':B)CHR*<57)! INFUT#2,EÌ 
8770 PR INTtt 1 , ''P"CHRÌ<2 )CHRÌ<A)CHRÌ<B >CHRÌ<72) : INPUT#2 ,FÌ 
”P"CHRÌ<£ >CHRt<A)CHRÌ<B)CHRÌ(73):INPUT#2,GÌ 
“P''CHRi (2 )CHRÌ< A)CHRÌ<B)CHRi(81): INPUT#£,H1$ 

KKimm , "P "CHRÌ<2)CHRÌ<A)CHRt<B)CHRi< 86) : INPUT#2,H2Ì 
3810 PRINTttl,"P*CHR*<2)CHR*(A)CHRÌ(B)CHR*(91):INPUT#2,H3i 
3320 PR INTtt 1 , “P "CHRi(2 )CHRt(A)CHRÌ(B)CHR$(36 ) : INFUT#2,H4Ì 
3330 PRINTttl,"P"CHRi< 2 >CHRi(A >CHRi< B)CHRi<101):INPUT#^,H5Ì 
3840 PRINTttl,°P"CHR*<2>CHRt<A>CHR*<B)CHR*<106):INPUT#2,I* 

3350 RETURN 

8860 REM ********** SUBROUTINE VIDEATA PRESTITI 
8870 PR INT"I#'1.R0 ■ 

8830 PRINT"aCOGN. ■ 

8390 PRINTTAB<21 >; "C»'10ME! 

3900 PR I NT “ làJ I A/N. ■ 

8910 PRINTTAB(21)J"D3TEL.■ 

8920 PRINT * 3C ITTA'! 

3930 PR INTTAB <21 )) “CiaCAP ! UMV’F* 

3940 PRINVa^ROV. ! IBI" ;Gi:PRINT 

3360 PR INT"NIUHIIHI":HI*:"-”) H2i; " - ” ;H3i; “ - “;H4*i “ - “ ;H5 * 

3370 PRINT'SEiATA ■ IIIIIIIIIUH : *> 

3980 RETURN 

8390 REM ************ PER SUBROUTINE DI USCITA ************ 

3020 REmViESTO PROGRAMMA DI ARCHIVIO E' PROTETTO PER LE DIMENSIONI 
DEL DISCO 

9030 REM RIESCE A REGISTRARE 

9040 gilTS TIP'! DI CODICI DIVERSI. E ' BENE CREARE PRIMA GLI 

3050 RE R M H PP V 0GR R À^ E -A T RCHIV- CREATO IL 15/12/1384 DA BURIN CARLO 

10000 REM 
READY. 


3730 PRINTttl 
3730 PRINTttl 
3300 PRINTttl 


********** 

" ; A* 

|" ; Bi 
;Ci 

r ; d$ 

;Ei 




1000 ARTICOLI DIVERSI; £00 INDIRIZZI 
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Listato “CREA' 


100 POKE 53280,0: POKE 53281,0 
HO PRINT CHRt (147): CHR$ (5); CHR$ (18)'QUEST0 PROG 
RAWtt SERVE PER CREARE GLI ": „ 

120 PRINT "ARCHIVI RELATIVI AL PROGRAMMA 01 GESTI 0- ; 
130 PRINT "NE DI AUDIO-VIDEO-B1BLIOTECA. 

140 PRINT “VENGONO CREATI 1000 RECORD RELATIVI AL 
150 PRINT "FILE 'LIBRE: 200 RECORD PER IL FILE 
160 PRINT "'PRESTITI': 40 RECORD PER IL FILE 'CODI- 1 ; 
170 PRINT "CE E UH RECORD PER IL FILE 'SERVIZIO'. 

100 PRINT • 

IVO PRINT "E' UTILE USARE QUESTO PROGRAMMA SU IN 
200 PRINT "DISCO VUOTO MA GIÀ' FORMATTATO. SE FATTO"; 
210 PRINT "FUNZIONARE SU UN DISCO GIÀ' IMPIEGATO 
220 PRINT "CON ALTRI PROGRAM E/O ARCHIVI QUESTO " ; 
230 PRINT "POTREBBE NON AVERE LO SPAZIO SUFFICIENTE"; 
240 PRINT "A CONTENERE ANCHE QUESTI ULTIMI 
340 PRINT "PER ATTIVARLO SCRIVI -CREA-" 

350 INPUT Z*: 1F Z* < > "CREA" THEN PRINT CHRS (147 
): GOTO 1000 

351 PRINT ‘PREPARO IL FILE 'LIBRI'" 

353 Hi = " 1 :A$ = * ":BÌ = " 


354 Ci = 


" :DÌ 


355 Ei = " “'Fi - “ ’ 

360 0PEN1.8.15:0PEN2,8,2,"LIBRI,L,“ ♦ CHRi (120) 

370 CLOSE2:CL0SE1 

380 OPEN1,8,15:0PEN2,8,2,"LIBRI,L,“ ♦ CHRi (120) 

385 A = 232:B = 3 

390 PRINT tll,"P" CHRi (2) CHRi (A) CHRi (B) CHRi (1): PRINT 
H$ 

400 PRÌNT m,"P" CHRi (2) CHRi (A) CHRi (B) CHRi (3): PRINT 
t»2, Ai 

410 PRÌNT HI "P" CHRi (2) CHRi (A) CHRi (B) C'HRi (10) 

PRINT 82,B$ 

420 PRINT 81, P" CHRi (2) CHRi (A) CHRi (B) CHRi (41) 

PRINT «2.C$ 

430 PRINT 81,‘P" CHRi (2) CHRi (A) CHRi (B) CHRi (72) 

PRINT #2,Di 

440 PRINT #1*P“ CHRi (2) CHRi (A) CHRi (B) CHRi (103) 

. PRjf^T #2 E$ 

450 PRINT 81 CHRi (2) CHRi (A) CHRi (B) CHRi (114) 

. PP1NT 89 C< 

460 CLOSE2: PRirVT *1." 1 " :CLOSE1 
470 PRINT CHRi (17)"0RA CREO IL FILE 'PRESTITI'" 

490 Ki = " ":AÌ = ’ ":Bi = " ":C 

i = 0 

500 Di = " *:EÌ = " *:FÌ = 

":GÌ = " ":H1Ì = " 

510 H2i = " ":H3Ì = ’ ":H4i = " ":H5Ì = " 

:li = " 

520 0PEN1,8,15:0PEN2,8,2,"PRESTITI,L,“ ♦ CHRi (116) 


530 CL0SE2:CL0SE1 

535 OPEN1,8,15:0PEN2 f 8,2,"PRESTITI,L,“ + CHRi (116):X = 

?oc 

540 PRINT tU,"P" CHRi (2) CHRi (X) CHRi (0) CHRi (1): PRINT 
#2,K$ 

550 PRINT tU,"P" CHRi (2) CHRi (X) CHRi (0) CHRi (3): PRINT 
82. Ai 

560 PRINT 81,"P" CHRi (2) CHRi (X) CHRi (0) CHRi (18): 

PRINT 82.BÌ 

570 PRINT tt!, P" CHRi (2) CHRi (X) CHRi (0) CHRi (30): 

PRINT 82.Ci 

580 PRINT HI.*?' CHRi (2) CHRi (X) CHRi (0) CHRi (45): 

PRINT 82,Di 

590 PRINT 81,‘P" CHRi (2) CHRi (X) CHRi (0) CHRi (57): 

PRINT 82,Ei 

600 PRINT 81.'P* CHR» (2) CHRi (X) CHRi (0) CHRi (72): 

PRINT 82.Fi 

610 PRINT 81, J P" CHRi (2) CHRi (X) CHRi (0) CHRi (78): 

PRINT 82,Gl 

620 PRINT 81,‘P- CHRi (2) CHRi (X) CHRi (0) CHRi (81): 

D RIN T 82.H1Ì 

630 PRINT 81, i P" CHRi (2) CHRi (X) CHRi (0) CHRi (86): 

PRINT 82,H2Ì 

*40 PRINT 81 ,P" CHRi (2) CHRi (X) CHRi (0) CHRi (91): 

PRINT 82,H3Ì 

650 PRINT 81 , P" CHRi (2) CHRi (X) CHRi (0) CHRi (96): 

PRINT 82.H4Ì 

660 PRINT 81,‘P" CHRi (2) CHRi (X) CHRi (0) CHRi (101) 

: PRINT 82.H5Ì 

670 PRINT 81,'P" CHRi (2) CHRi (X) CHRi (0) CHRi (106) 

: PRINT 82,li 

680 CLOSE2: PRINT 81 ,T :CL0SE1 

«I 

720 CL0SE2:CL0SE1 

725 0PEN1,8,15:QPEN2,8,2,"CODICI,L," ♦ CHRi (38):X = 4 
0 

730 PRINT 81 ,‘P" CHRi (2) CHRi (X) CHRi (0) CHRi (1): PRINT 

82 " 1 

740 PRÌNT 81,"P" CHRi (2) CHRi Ri(0) CHRi (8) 

750 PRINT 82." 

760 CL0SE2:CLÓSE1 

770 PRINT CHRi <17)"CREAZIONE DELL'ARCHIVIO 'SERVIZIO 

t & 

780 OPEN1.8, T5 :OPET42,8,2, * SERVI ZI0.L, * + CHRi (14) 

785 PRINT 81,-P" CHRi (2) CHRi (1) CHRi (0) CHRi (1) 

790 PRINT 82," 

SCO PRINT 81,"P" CHRi (2) CHRi (1) CHRi (0) CHRi (B) 

810 PRINT 82," 

820 CLOSE2 

830 PRINT CHRi (18)"CREAZIONE EFFETTUATA" 

840 PRINT 81,“I":CL0SE1 
1000 BID 

1010 REM PROGRFm) -CREA- PER LA CREAZIONE DEI FILES 
DEL PROGRAMMA -ARCHIV- 
1020 REM CREATO DA BUR1N CARLO 8/1/1985 


Il confronto tra la voce richiesta e 
quella registrata viene effettuato 
partendo da sinistra, cosicché due 
titoli come Sogno e realtà e Sogno di 
una notte di mezza estate vengono 
entrambi visualizzati, in ordine di 
archiviazione, se la richiesta è 
"SOGNO". 


• uscita da programma. Con questa 
funzione il computer va in "ready". 
Volendo richiamare un altro pro¬ 
gramma, comunque, è prevista 
un'apposita subroutine: basterà 
modificare la riga 9.000 adattandola 
allo scopo. 


Come avviare 
il programma_ 

Per prima cosa sarà bene creare 
eli archivi, per non incorrere nell'er¬ 
rore 50 (RECORD NOT PRE¬ 
SENTI; "Crea" è un programmino 
pensato appunto per scongiurare 
questo rischio, c va utilizzato su un 
disco formattato ma vuoto, perché 
lo spazio occupato dagli archivi è 
notevole. 

I molti comandi di imzializzazio- 
ne, che possono sembrare inutili, 
assicurano invece un buon funzio¬ 
namento, senza gli intoppi che po¬ 


trebbero insorgere a causa delle di¬ 
mensioni dei file. 

Infine una raccomandazione, di¬ 
retta soprattutto ai meno esperti: 
sarà bene fare molta attenzione nel 
ricopiare "Archiv" e rispettare asso¬ 
lutamente la lunghezza delle strin¬ 
ghe prima di accingersi ad apportare 
modifiche personali al programma. 

Carlo Burin 


Questo programma e disponibile 
su dischetto 

L'elenco, i prezzi e le modalità 
d'ordine di questo e degli altri dischetti 
disponibili sono riportati nell'ultima 
pagina. 
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Vorrei sapere, vorrei proporre... 


Formula chip 

Nel numero di Gennaio 85 
avete riportato un listato del 
programma 'Formula Chip" 
che a causa di un errore di 
stampa mi ha fatto perdere 
tempo e pazienza, nel mese 
di Novembre 84. Dopo due 
mesi è uscita la seconda parte 
del listato che mancava, bat¬ 
to anche questo e alla riga 32 
il computer mi segnala 
"OUT OF DATA". Ho 
provveduta a cancellare la 
scritta "RE AD A" e il pro¬ 
gramma si è messo a girare. 
Pertanto vi chiedo di far luce 
su questo ennesimo errore di 
stampa. 

Giuseppe Battista 

Rivalta (To) 

Caro Giuseppe, mi spiace 
deluderti ma questa volta 
non si tratta di un errore di 
stampa. 'OUT OF DATA" 
vuol dire che si è dato al 
computer un comando di 
leggere un numero di DA¬ 
TA superiore a quelli intro¬ 
dotti nel listato. Il fatto che. 
togliendo "READA” alla li¬ 
nea 32 il programma giri, 
conferma che nelle reghe 
che vanno da 50 a 64 hai di¬ 
menticato di scrivere qual¬ 
che numero. Controlla bene 
il programma, riscrivi 
"READA" alla linea 32 e il 
programma funzionerà a 
dovere. 

Reset 

Sotto un vostro affeziona¬ 
tissimo lettore e colgo l’occa¬ 
sione per congratularmi con 
Voi per la Vostra bella e 
istruttiva rivista. Sull ultimo 
numero di RadioELET- 
TRONICA &COMPETER 
è apparsa la costruzione del 
tasto di reset per C64; mi so¬ 
no precipitato a costruirlo, 
ma con mia immensa delu¬ 
sione ho potuto constatare 
che non resettava un bel 
mente! 

Premetto che ho compera¬ 
to il C64 circa un mese fa e 
quindi penso trattasi di un ul¬ 
timo modello; posseggo an¬ 
che un VIC 20 e su quest ’ulti¬ 
mo il tasto di reset funziona 
perfettamente. Preso dal 


dubbio mi sono recato pres¬ 
so il mio rivenditore facendo 
presente la situazione, il qua¬ 
le rivenditore molto gentil¬ 
mente si è prestato a provare 
detto tasto di reset, costruito 
da me, in altri C64. Si è veri¬ 
ficata una cosa molto strana: 
in alcuni funzioava ottima¬ 
mente, in altri no, anzi, per 
completare l’argomento ab¬ 
biamo potuto notare che i 
C64. nei quali il reset funzio¬ 
na, hanno nella parte poste¬ 
riore la vite di sintonia fine 
del moduatore, mentre nel 
mio e negli altri come il mio 
la vite non esiste e il reset non 
funziona. Si tratta di un nuo¬ 
vo modello, come dice il ri¬ 
venditore, oppure di un mo¬ 
dello fasullo? Avete riscon¬ 
trato anche voi una tale diffe¬ 
renza e quindi una tale ano¬ 
malia? 

Mario Pulvirenti 

Caltanissetta 

1 C64 che abbiamo in re¬ 
dazione per le prove dei pro¬ 
grammi e delle interfacce 
sono tutti vecchia serie, ov¬ 
vero hanno tutti la vite di 
sintonia fine del modulatore 
e quindi non abbiamo ri¬ 
scontrato personalmente al¬ 
cuna anomalia. Abbiamo 
invece ricevuto alcune tele¬ 
fonate che lamentavano lo 
stesso difetto da te riscon¬ 
trato. Coloro che si ritrova¬ 
no in questa lettera non si 
allarmino, ì C64 in loro pos¬ 
sesso non sono fasulli. Sicu¬ 
ramente da una certa data di 
produzione in poi la Com- 
modare non ha più effettua¬ 


to il collegamento del Reset 
al piedino sei del connettore 
I/O seriale. Si può comun¬ 
que rimediare all’inconve¬ 
niente effettuando il colle¬ 
gamento tra i contatti N. 1 e 
N.3 della USER PORT (ve¬ 
dere figura in basso). Effet¬ 
tuate i collegamenti riferen¬ 
dovi agli schemi delle varie 
uscite del C64 riportate nel¬ 
le ultime pagine del manua¬ 
le d’uso fornito insieme al 
computer. 

StatX 

Sono un ragazzo di 1 7 an¬ 
ni appassionato di compu¬ 
ter, e sono stato molto felice 
di vedere sulle pagine di 
RE&C di giugno il program - 
ma "STAT - X". infatti mi 
interesso anche di ufologia, e 
la statistica in questo campo 
è molto importante. Il pro¬ 
gramma gira bene, ma vorrei 
chiedervi delle spiegazioni 
riguardo le linee che vanno 
dalla 600 alla 720. Per quan¬ 
to io provi a inserire il nume¬ 
ro delle classi, il computer mi 
risponde sempre con un 
"REDO FROM START, e 
il programma non va più 
avanti. 

Danilo Coucorde 

Pinasca (To) 

Le linee dalla 60(1 alla ?20 
servono per effettuare una 
elaborazione relativa alla 
statistica: la suddivisione. 
La risposta del computer 
"REDO FROM START" 
avviene quando si risponde 
in modo errato a una richie¬ 


sta di dati. Alla domanda 
"NUMERO DI CLASSI?" 
devi rispondere con un nu¬ 
mero da 2 a 12. Il listato da 
noi pubblicato è esatto e 
funziona a dovere. Control¬ 
la accuratamente le linee 
che vanno dalla 600 alla 720 
c tutto sarà sistemato. 

Pubblicità 

Volevo un chiarimento sul 
listato per Commodore 64 
pubblicato sul N I/ di No¬ 
vembre 84 a pag. 29 il cui 
titolo è "Pubblicità". Dato il 
RUN il programma mi segna 
sempre errore nella linea 100 
e desideravo sapere se non 
mi potevate dare il program¬ 
ma esatto. 

Lettera non firmata 

Il listato contiene un erro¬ 
re tipografico al termine del¬ 
la linea 160. La linea stessa 
va battuta esattamente co¬ 
me è spiegato a pag. 29. nel¬ 
le istruzioni (terza colonna), 
e precisamente: 160 DATA 
"CTRL 9 CTRL, 3 36 SPA¬ 
ZI BIANCHI CTRL 0","z" 


Sonda logica 

Mi accingevo ad autoco- 
Struirmi la sonda logica a di¬ 
splay da voi pubblicata sul 
numero di Agosto 1984, 
quando al momento dell'ac¬ 
quisto dei componenti mi so¬ 
no trovato a non avere dati 
sufficienti per l’identificazio¬ 
ne. Essendo da poco tempo 
nel campo dell’elettronica ho 
avuto alcuni dubbi, forse un 
po banali. 

Stefano Marini 

Pordenone 

Caro Stefano, le tue do¬ 
mande sono legittime per un 
principiante e noi ti aiutia¬ 
mo subito. Le resistenze, 
quando non specificato, so¬ 
no da considerarsi sempre 
da 1/4 di watt. La sigla com¬ 
pie ta dell’integrato è 
SN7400. Mentre per poter 
controllare gli integrati con 
la sonda, gli stessi devono 
per forza essere inseriti nel 
circuito sotto prova e rego¬ 
larmente alimentati. 


PULSANTE RESET 



A BCDEFHJKL MN 


USER PORT 
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Ancora Stat X 

Da anni sono un lettore 
dell'ottima rivista RadioE- 
LETTRONICA &COM- 
PUTER, anzi, grazie ai pro¬ 
grammi per computer che 
vedevo pubblicati da questa 
rivista, sono stato stimolato 
dal desiderio di conoscere 
cosa sarebbe venuto fuori da 
quelle scritte così strane (li¬ 
stati). 

Ho acquistato un VIC 20 e 
successivamente anche l e- 
spansione da Hi Kbyte. Per 
prima cosa ho trascritto tutti i 
listati pubblicati da R.E.& 
C. e devo confessare che so¬ 
no abbastanza soddisfatto. 
Ma veniamo al problema pel¬ 
li quale vi scrivo: nel N. 6 del 
Giugno 84, a pag. 14 avete 
pubblicato il listato del pro¬ 
gramma "STA T X' per C64 
che con opportune modifi¬ 
che dovrebbe girare anche 
sul VIC 20, purtroppo ho 
provato a fare le modifiche 
di cui fate cenno nell'artico¬ 
lo, ma il risultato ottenuto è 
abbastanza modesto, cioè il 
programma non funziona 
bene, senz'altro, penso che 
sia dovuto al fatto che le mo¬ 
difiche apportate non siano 
sufficienti. 

Pietro Branchetti 

Bologna 

Le modifiche da apporta¬ 
re al listato del programma 
per farlo girare sul VIC 20 
con 3K di memoria di espan¬ 
sione si riducono al fatto che 
il display del VIC 20 è a 22 
colonne invece di 40 come il 
C64 e al dimensionamento 
piu piccolo del vettore A(n) 
in relazione alla memoria a 
disposizione. Tutte queste 
cose sono spiegate in modo 
chiaro nel corso dell'artico¬ 
lo. Oltretutto non fornisci 
alcun dato preciso per farci 
capire cosa vuol dire che il 
programma non funziona 
bene. 

Simboli grafici 

Possiedo uno ZX Spec- 
trum e battendo il program¬ 
ma "Atterraggio di Fortuna" 
(RE&C II 184 pubblicato al¬ 
le pagg. 33-34) dopo aver 


Un chiarimento? 

Un problema? Un'Idea? 
Scriveteci. 

Gli esperti di 
RadioELETTRONICA 
sono a vostra 
disposizione per 
qualunque quesito. 
Indirizzate a 
RadioELETTRONICA 
LETTERE 
Corso Monforte 39 
20122 Milano. 


posizionato il cursore nel 
modo grafico, alla linea 70, 
ho voltato pagina, dove è 
spiegato come posizionare i 
simboli grafici che si posso¬ 
no far apparire sul video con 
i tasti da 1 a 8. Purtroppo 
non è sufficiente battere que¬ 
sti tasti per farli apparire. 

Marcello Cesaretti 

I caratteri grafici relativi 
ai tasti da 1 a 8 e alle altre 
lettere indicate, vengono 
definiti dal programma stes¬ 
so dalla linea 1000 alla linea 
1060. Devi quindi copiare il 
listato tralasciando le linee 
contenenti i caratteri grafici, 
far girare il programma che 
definisce gli stessi, fermarlo, 
quindi completare il listato 
battendo le linee mancanti. 

Quell'Inglese 
non sa l'inglese 

Ho caricato sul mio com¬ 
puter Commodore 64 il pro¬ 
gramma "L inglese va in me¬ 
moria" pubblicato sul nume¬ 
ro di maggio 84 a pag. 31. 
Dopo aver caricato il listato 
N. 1 ( CREA ZIONE/AG- 
GIUNTA) e aver dato l'i¬ 
struzione RUN sul vìdeo, 
appare la richiesta della pa¬ 
rola inglese e successi! aulen¬ 
te non appare la richiesta del¬ 
la traduzione italiana. Rima¬ 
ne pertanto impossibile ave¬ 
re la parola inglese con la re¬ 
lativa traduzione in italiano. 
Vorrei sapere se il listato N. I 
è esatto o contiene degli erro¬ 
ri. 

Mauro latinucci 

Roma 

i 1 listatoN. lperC64pub¬ 
blicato a pag.38 è esatto. 
Probabilmente hai commes¬ 
so qualche errore di trascri¬ 
zione perche sul video deve 
apparire prima la richiesta 
della parola italiana (linea 
2020) poi della corrispon¬ 


dente traduzione inglese (li¬ 
nea 2030). Controlla con cu¬ 
ra il listato e il programma 
funzionerà perfettamente. 

Se lo Spectrum 
non corica 

Da due anni sono un vo¬ 
stro lettore. Ho avuto sotto 
mano tante riviste e ritengo 
che la migliore fino ad ora 
sia proprio RadioELET- 
TRON1CA & COMPU¬ 
TER Possiedo uno Spec¬ 
trum 48K e, penso come tanti 
altri, ho avuto problemi nel 
caricamento dei dati. Dopo 
molti tentativi ho scoperto la 
causa. Mi sono accorto che 
dal televisore, e precisamen¬ 
te dalla presa antenna dove 
va inserito il cavo del compu¬ 
ter. vi è un segno di fase di 
rete e di conseguenza una 
tensione. Questa tensione 
entra nel computer e va a in¬ 
teressare tutte le sue parti. 
Certi programmi difficili, 
quindi, non si caricano subi¬ 
to oppure non si caricano af¬ 
fatto. Per eliminare questa 
tensione non ho fatto altro 
che mettere a massa la ma¬ 
glia del cavo coassiale che va 
collegato al televisore e tutto 
funziona a dovere. 

Marco Nonni 
Imola (Bo) 

Una fase della tensione 
alternata che entra in un 
computer anche attraverso 
la massa è sempre oltremo¬ 
do pericolosa sia per il com¬ 
puter che per l’utilizzatore. 

La tua soluzione ha certa¬ 
mente migliorato la situa¬ 
zione però, non avendo ele¬ 
menti sufficienti per scopri¬ 
re la causa della presenza di 
questa tensione (sarebbe 
necessario conoscere il tipo 
di televisore e comunque 
poterlo controllare), rite¬ 
niamo che vi sia una disper¬ 


sione nel circuito di alimen¬ 
tazione del televisore e 
quindi sarebbe meglio ali¬ 
mentarlo con un trasforma¬ 
tore (NON AUTOTRA¬ 
SFORMATORE) a 220 volt 
con rapporto 1:1. Ciò per¬ 
metterebbe di avere il cir¬ 
cuito elettrico del televisore 
perfettamente isolato dalla 
rete alternata e quindi dal¬ 
l’alimentazione del compu¬ 
ter. 


Sono un vostro lettore e, 
da poco, mi dedico alla co¬ 
struzione di piccoli progetti 
che appaiono su RE&C. Nel 
numero di gennaio 84 avete 
pubblicato il progetto di un 
salvavita differenziale che mi 
interessava. L'ho costruito 
ma mi ha dato non pochi 
I problemi per la regolazione 
della soglia di intervento e 
per il fatto che io avrei voluto 
utilizzarlo per proteggere 
tutta l'abitazione, cioè inter¬ 
rompere un carico di 2-2,5 
KW, e certamente il relè im¬ 
piegato non lo sopporta. 

Walter Gobbo, 
Orsago (TV) 

Caro Walter, per rendere 
meno critica la regolazione 
puoi mettere in sene a R4 un 
potenziometro di 10 Kohm 
del tipo multigiri per una re¬ 
golazione fine. Il relè usato 
nel circuito può servire an¬ 
che per pilotarne un altro 
con una maggior potenza di 
interruzione, quindi più 
adatto al carico che tu vuoi 
pilotare. Devi comunque ri¬ 
cordare che. siccome i due 
avvolgimenti a 6 volt di Tri 
sono attraversati dalla cor¬ 
rente assorbita dagli utiliz¬ 
zatori (sono in serie a questi 
ultimi), anche essi devono 
essere in grado di sopporta¬ 
re la potenza richiesta. 


Ecce la frase decodificata di pag . 16 . 

La crittografia, ossia l'arte di scrivere segretamente in 
modo che i soli iniziati possano comprendere, si può 
dire vecchia quanto il mondo. Si potrebbe dire che 
scende in linea retta dalle scritture ieratiche o cuneifor¬ 
mi, dai geroglifici dell'alto Egitto. 

(Da La crittografia di Luigi Gioppi edizioni Hoepli, 
1897) 
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Vendo, Compro, Cerco, Scambio. •• 


• OCCASIONE irripetibile! 
Vendo Simons Basic per Com¬ 
modore 64, si aggiungono 114 
nuovi comandi per miglior con¬ 
trollo della grafica, musica ecc. 
A sole L. 35.000. Allegare soldi. 
Bivi Andrea, Via C. Rota, 2/8 
Se. Sin. - 16151 Sampierdarena 
(GE). 

• VENDO programmi Commo¬ 
dore C64 D/N ultime novità: 
Zeppelin II. Summer Games, 
Popeye. ecc. Bompicri Silvano. 
Via Baccaglioni. 8 - 46040 Mon- 
zambano (M N ) . Tel 
0376/845372 (dopo le ore 
20 . 00 ). 

• VENDO consolle Intellivi- 
sion + 1 gioco a L. 200.000 trat¬ 
tabili. lntellivoice + B 17 Bom¬ 
ber a L. 250.000.1 più bei giochi 
per Intellivision come: Mission 
X, Vectron, Star Strike, 
I.ock'n'chasc a L. 500.000 cad. 
Bianco Antonio, Via Montava¬ 
no, 16 - 84016 Pagani (SA). Tel. 
081/919350. 

• CERCO oscilloscopio 10-r20 
MHz doppia traccia in buone 
condizioni. Bongiovanni An¬ 
drea. Via Cassino, 55 - Desio 
(MI). Tel 0362/629651. 

• VENDESI Bug per partire da 
una qualsiasi caverna del pro¬ 
gramma Manie Miner per ZX 
Spectrum. Inviare L. 1000 in 
francobolli Scrivere a Beldì 
Paolo. Via Cettolim. 26 - 31015 
Concgliano (TV). Ricordate il 
vostro recapito!!! 

• VENDO Vie 20 completo + 
cassetta gioco Frog + libro 
Grafica per Vie 3D + cassetta 
con 50 programmi (giochi e uti¬ 
lity) alcuni in L.M a L 200.000. 
Belardini Riccardo, Prov. San 
Montano, 18 - Lacco Ameno 
(NA). Tel 081/995453. 

• VENDO registratore Com¬ 
modore C2N + cassetta conte¬ 
nente 20 giochi molti in L.M + 
libro grafica per Vie 20 a L. 
100.000. Belardim Riccardo. 
Prov. San Montano, 18 - Lacco 
Ameno (NA) Tel OSI '995453. 

• VENDO causa passaggio a si¬ 
stema superiore ZX Spectrum 
48K-ISSUE 3 con manuale in 
italiano + registratore Harvey 
+ cassette per un complessivo 
di circa 70 giochi il tutto a L. 
550.000. Per trattazioni telefo¬ 
nare allo 0586/22131 Brilli An¬ 
drea, Via dei Carabinieri, 7 - 
57100 Livorno. 

• VENDO Vie 20, 6 mesi di vi¬ 
ta. con: espansione di memoria 
8 K Ram. 3 giochi su cartuccia: 
Clown, Gorf, Poker. 1 gioco su 
cassetta Q Bert + regalo 2 cas¬ 
sette con oltre 40 giochi al prez¬ 
zo di L. 300.000. Buzzi Gianlu¬ 
ca, Via Segantini, 75 - Milano. 


Tel. 02/8399098 (solo zona 
Milano). 

• DA POCO possessore di 
CBM64, cerco utenti stesso si¬ 
stema per scambio listati di pro¬ 
grammi di qualunque genere. 
Assicuro massima serietà. Mi 
raccomando, fatevi sentire. Ba¬ 
roncini Tommaso, Vico I S. 
Rocco, 80 - Carpinone (IS). 

• VENDO causa doppio regalo 
ZX81 completo di imballo ori¬ 
ginale. cavetti, alimentatore, a 
sole L. 50.000. Scrivere a Bruci- 
ni Carlo, Via Usciana. 79 - 
56020 S. Maria a Monte (PI). 

• SPECTRUM 48K (Rom 80 
K) con accessori originali ven¬ 
do unitamente numerosi ecce¬ 
zionali programmi giochi e uti¬ 
lità (Asm, Disasm, Monitor, 
3D. VU cale-file, Pascal. Forth. 
Sofkiti-2, ecc.) Volume Rom 
Disassembled per utilizzo rou 
tine firmware. Solo Torino e 
dintorni Borghetto Luigi, Via 
Stellone 2 bis - Torino. Tel. 
011/699511 (ore serali). 

• AFFARONE vendo ZX8I + 
64 K + tastiera con tasti a 4 
colori + cavetti e alimentatore 
+ libri inglese, italiano e 66 
programmi L. 300.000. Bacchi 
Mario, Via Costituzione, 4 - 
Rubiera (RE). Tel. 0522/62232 
(ore 10-13). 

• A SOLE L. 3000 offro collau¬ 
data sonda termica con schema 
elettrico, elenco componenti e 
disegno circuito stampato; per 
realizzare un preciso termome¬ 
tro. Battazza Carlo, Via Fiume 
di Sotto, 3/B - 48010 Fusignano 
<RA>. 

• CERCO ZX microdrive con 
interfaccia per Spectrum c/o 
stampanti con interfaccia a 
buon prezzo Scrivere o telefo¬ 
nare allo 015/22501 Buratti 
Andrea. Via Firenze. 42- 13051 
Biella. 

• CERCO fotocopie o originali 
manuali e schemi di: registrato- 
re Grundig CR355, registratore 
Philips 4308. piatto Sansui 
SRB200, equalizzatore outlinc 
E05 Audyne. Spese postali a 
mio carico. Pago bene Bruni 
Sante, Via Viole, 7 - Alba 
Adriatica (TE). 

• VENDO ZX Spectrum 
16/48K - stampante Alpha- 
com32 - joystick + interfaccia. 
Battaglino Sergio, Via Celimi, 
25 - Torino. Tel 011 6942208. 

• VENDO programmi Magik 
Desk - Easy Script con manuale 
in italiano a L. 60.000 solo su 
disco. Brambillasca Maria Lui¬ 
sa, Via Gramsci. 23/2 - 20041 
Agrate B za (MI). 

• VENDO Vie 20 (nuovo) + 
espans. mem 24 Kb + manuale 


d'uso italiano + software vasto 
genere -I- riviste. Tutto L. 
250.000. Burderi Gianluca. 
C.so Umberto I, 418 - 97015 
Modica (RG) Tel. 
0932/941963 (ore pasti) 

• VENDO gioco Formula Uno 
della Tomy a L. 22.000 (con 
contagiri, volante e completo di 
istruzioni per l'uso) Per infor¬ 
mazioni telefonare allo 
02/3533836 dalle 14.00 alle 
16.00 o dalle 18.00 alle 21.000. 
Adt Massimo. Via Mario Bor¬ 
sa, 10 - Milano. 

• CERCO possessori di Sin¬ 
clair QL per scambio di espe¬ 
rienze, solo Veneto. Amorosi 
Roberto, Via Orti Est, 233/E - 
Chioggia (VE). Tel. 041/491268 
(chiedere di Roberto). 

• VENDO sistema completo 
Commodore composto da com¬ 
puter C64 + registratore 1530 
+ floppy 1541 + stampante 
MPS 801 + accessori e molti 
programmi a L. 1.200.000. 
Amato Augusto, Via Rodolfo 
Morandi, 3 - 00139 Roma. Tel. 
06/8185465. 

• VENDO ZX8I inespanso 
completo di cavetti e alimenta¬ 
tore -+■ cassetta 30 programmi + 
4 libri in italiano il tutto a L. 
130.000 trattabili Angeloni 
Pietro, Via Vasco De Gama, 
140 - Ostia Lido (Roma). Tel. 
06/5610518 (dalle ore 14.00 alle 
16.00). 

• VENDO cartridge «Vie 
Avenger» per Vie 20 a L. 
20.000. inoltre vendo o scambio 
programmi per CBM 64 a prez¬ 
zi eccezionali Acanfora Ange¬ 
lo Michele. Via Cesare Battisti. 
8 - Scafati (SA). 

• VENDO il seguente materia¬ 
le: Lineare «Jupiter» 400 W 
AM - 600 W SSB, come nuovo 
L. 390.000. Frequenzimetro 
«REL» 500 MHz max, alimen 
tazione 220V ca. L. 130.000. 
VFO 23 MHz con frequenzime¬ 
tro digitale (il frequenzimetro si 
può usare anche come indicato¬ 
re digitale di frequenza in un 
ricevitore) L. 145.000. Carico 
fittizio «RSM» lOOOWatt ad 
olio L. 65.000. Tutto il materia¬ 
le è in perfette condizioni; mas¬ 
sima serietà. Della Bianca 
Maurizio, C.so De Stefanis29 1 

1613 9 Genova. Tel 
010/816380 (dopo ore 20.00). 

• VENDO per Vie 20 esp 8K 
usata pochissimo L. 50.000; 3 
cartridge (Avenger. Gorf, 
Omega) a I. 50.000; 11 cassette 
con più di 80 giochi a L. 35.000 
e interfaccia per colleg. regi¬ 
stratore a L. 20.000. Alterim 
Antonio, Via Madonna del 
Prato. 116 - Arezzo. Tel 
0575/27395. 


• VENDO per mancanza spa¬ 
zio, a prezzi bassissimi, un cen¬ 
tinaio di riviste di elettronica 
(Radio Elettronica. Elettronica 
& Computer. Elektron. Speri 
montare, etc ) in blocco a L. 
50.000 + spese di spedizione - 
singole 50% prezzo di coperti¬ 
na. Tonazzi Arturo, Via San 
Giacomo 131 - 39050 San Gia¬ 
como di Laives (BZ). Tel. 0471/ 
940876. 

• RIVISTA Paper Software dal 
n. 1 al n. 25 in blocco cerco per 
lire 10 mila. Pietrolonardo Gio¬ 
vanni. Via della Massimilla 25 - 
00166 Roma. 

• COMPRO espansione di me¬ 
moria per ZX81 da 32 K funzio¬ 
nante; compro giochi vari su 
cassette da 1 K; compro corso 
SRE elettrauto; compro espan¬ 
sione di memoria per Vie 20 + 
registratore + giochi vari su cas¬ 
sette senza o con espansione 8 K; 
scrivere per accordi. Zambito 
Antonio, Via D. Cimarosa 7 - 
Porto Empedocle. 

• CERCASI urgentemente car¬ 
tridge Vie Rei per Vie 20. posso 
pagare fino a L. 50.000 (+/•—). 
insieme offro giradischi Lesa da 
incassare perfettamente funzio¬ 
nante Brandino Massimo. Via 
Montebianco 20 -10024 Monca- 
licri (IO). 

• VENDO per ragioni finanzia¬ 
ne C64 + 2 cartridge (soccer e 
music compouser) + 150 pro¬ 
grammi tra i più famosi e i piu 
utili (decathlon, pole position. 
tennis, totocalcio, gestioni di 
ogni genere) -I- 15 riviste di in¬ 
formatica con parecchi pro¬ 
grammi a sole L. 600.000 tratta¬ 
bili. Vendo anche registratore 
2CN -I- 150 programmi + 1 car¬ 
tridge radar ratrace a L. 
250.000. Bruccaleri Roberto, 
Via Torino 58 - Centallo (CN ). 
Tel 0171 714704, o scrivere. 

• OLTRE 4.000 programmi per 
CBM64 posseduti Cerco pro¬ 
grammi per ZX Spectrum e 
MSX. Bacchetta Guglielmo, 
C.P. 374-60035 Jesi (AN). Tel. 
0731/56705. 

• VENDO computer HP-85 del 
valore di L. 7.200.000 alla mo¬ 
dica cifra di L. 3.500.000. Solo 
sei mesi di vita. Buccolim Gior¬ 
gio, Via Adua 11 - 00042 Anzio 
(Roma). Tel 06/9844273. 

• VENDO Vie 20 + joysticks + 
5 cassette per registratore tutto 
a L. 190.000; vendo perché vo¬ 
glio acquistare un Commodore 
64 Bertagna Diego. Via Mazzi¬ 
ni 17 - Asti. 

• VENDO, a prezzi stracciatis¬ 
simi, games e utility per Vie 20, 
prccisamenie al prezzo di L 
5.000 Nel mio repertorio vi so¬ 
no i seguenti giochi Milliped. 
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Multitron. Pac-man. Froggcr 
(3K) e molti altri Richiedo 
massima serietà. Brancatelh 
Stefano, Via Trento 30 - 98076 
S. Agata Militello (ME). 

• COMMODORE 64 scambio. 
Novità assolute; 1500 titoli su 
nastro o disco; scambio anche 
con RTX 144 MHZ. Borracci 
Giuseppe, Via Mameli 15 - 
33100 Udine. Tel. 0432/291665 
(ore serali). 

• VENDO per passaggio a siste¬ 
ma superiore ZX Speetrum 48 
K + cavetti + alimentatore + 
interi. Magnum + joystick 
quick shot li + 4 libri + giochi a 
L. 450.000. Bruno Graziano. 
Via Quarto dei Mille 39 - Tori¬ 
no. Tel. 011/711093 (ore pasti). 

• VENDO ZX Specturm 48 K. 
un mese di vita con garanzia in 
bianco + libro sul microdrive 
Speetrum + libro «Alla scoper¬ 
ta dello ZX Speetrum» + 50 
fantastici giochi II tutto a sole 
L. 340.000. Bianchi Luca. Via 
Magenta 88 - Sesto San Giovan¬ 
ni (MI). 

• CAUSA passaggio a sistema 
superiore vendo ZX Speetrum 
16K (sei mesi di vita) con cavet¬ 
ti. alimentatore, manuale e 100 
programmi di ogni tipo a L. 
330.000. Per informazioni tele¬ 
fonare allo 050/45783 Bondi 
Paolo, Via Pellizzi 1 - Pisa. 

• VENDO radio comando pro¬ 
porzionale composto da: 1 
trasm 6 canali, ricev. 6 canali, 
N.5 servi più batterie ricaricabi¬ 
li e caricabatterie TX-RX mar¬ 
ca Graupner 35 MHz. a L 
200.000 tutto compreso. Bara- 
botti Sergio, Via S. Ambrogio 
201 - 55049 Viareggio. Tel. 
0584/50981. 

• VENDO per ZX Speetrum 48 
K cassetta con circa 25 giochi 
(tra i quali Manie Miner, Atic 
Atac, Zip Zap. Limar Jetman 
ecc. ) il tutto a L. 30.000. Telefo¬ 
nare allo 041/962294 solo ore 
pasti (13.30). 

• È NATO Sinclair Club per 
Speetrum. Quota di iscrizione 
L 10.000. Prezzi minimi per i 
programmi, oltre 700 titoli. Si 
favoriscono gli scambi e acquisti 
agli iscritti al club. Faberi Luigi, 
Via Campagnola 3 - 25079 Vo- 
barno (BS). 

• VENDO personal computer 
Speetrum 48K -1- manuale in ita¬ 
liano + alimentatore cavi e sta¬ 
bilizzatore a 9 V + 300 pro¬ 
grammi in cassetta tra i quali gli 
ultimi arrivi - Hach Point ecc. e 
numerosi utility al prezzo di L. 
550.000. Scrivetemi per ulterio¬ 
ri informazioni. F.merilli Vin¬ 
cenzo, Via Monfaleone 41 - 
95033 Biancav illa (CT). 

• V ENDO Vie 20 completo di 


Queste pagine sono a 
disposizione dei lettori 
che desiderano 
acquistare, vendere, 
scambiare materiale 
elettronico. 

Verranno pubblicati 
soltanto gli annunci che 
cl perverranno scritti a 
macchina o a stampatello 
sull’apposito tagliando 
corredati 

da nome, cognome 
e indirizzo. 

Gli abbonati sono pregati 
di allegare la fascetta 
con il loro indirizzo 
tratta dall’ultimo numero 
che hanno ricevuto: 
i loro annunci verranno 
evidenziati rispetto 
agli altri. 

RadloElettronica non 
si assume responsabilità 
circa la veridicità e i 
contenuti degli annunci, 
né risponde di eventuali 
danni provocati 
da involontari 
errori di stampa. 


manuale di istruzione, una car- 
tridge, 8 cassette per registrato¬ 
re contenenti 5 giochi ciascuno 
e 2 libri di programmi Forlenza 
Umberto, Via Melo 182 - Bari 
Tel 080/233828 (dopo le 
15.00). 

• VENDO per ZX Speetrum 
ZX interfaccia 1 ; numerosi prò 
grammi (nuovi arrivi dall'In¬ 
ghilterra). Vendo videogioco 
B/N con 10 giochi Prezzi inte¬ 
ressanti. Fattorini Marco. Via 
L. Viani 21 - Firenze. Tel. 055 
711629. 

• VENDO Vie 20 + 3KSE + 
16K Rana + registratore Com¬ 
modore + programmi a cartuc 
eia Sargon, Jupites-man ecc. in 
confezione originale a I 
480.000. Ferri Bernardini Fran¬ 
cesco, Via Vecchia 30 - Vicope 
lago (LU). Tel 0583/378118 

• VENDO cartuccia-gioco per 
Vie 20 dal titolo «Pirate cove» 
Prezzo da concordare. Frutterò 
Marcello, Via Valle Andrea 2 - 
Mombello (TO). Tel 9875127 

• POSSIEDO vastissima gam¬ 
ma di giochi e utility per Corri 
inodore 64 su dischi e in parte su 
nastro. Li vendo a prezzi bassiv 
simi. per ulteriori informazioni 
telefonare allo 06/5015682 e 
chiedere di Fabrizio. Fiore Fa 
brizio. Via Paolo Buzzi 76 - 
Roma 

• VENDO Vie 20 completo di 
cavetti e trasformatore con n. 5 
cartridge, manuale d'uso e «Il 
libro del Commodore Vie 20» il 
tutto a L. 220.000. Ferraro Giu¬ 
seppe, Via S. Pio X 6 - 36027 
Rosa (VI) Tel 0424/858068 

• CERCO stampante ZX Prin¬ 
ter o Alphacnm funzionante e in 


buono stato purché molto econo¬ 
mica. A richiesta possa fornire 
anche dei programmi per ZX 
Speetrum. De Santis Claudio, 
Viale Ofanto 142/G - Foggia. 

• ESEGUO circuiti stampati a 
L. 100 il cm : con il metodo fo¬ 
toincisione, inoltre vendo qual¬ 
siasi tipo di schema a L. 2.500 
l’uno. Delaini Luca. Via Roma 
24 - 37060 Sona (VR). Tel. 045/ 
7180985 (ore pasti). 

• VENDO schemi e circuiti 
stampati per ZX81, soft inglese, 
listati o cassette. Ultimo arrivo 
«Monster» Della Casa Luigi - 
41010 Saliceto Panaro (NO). 

• SCAMBIO per CBM64 ampia 
scelta di giochi ed utility (più di 
120). Dispongo di giochi come 
Summer Game. Ghosbusters, 
Strip Poker, Missione Impossi¬ 
bile (le ultime tre sia su disco sia 
su cassetta). Domenici Massi¬ 
mo, Via Francesconi 26 55100 
S. Concordio (LU). Tel. 0583/ 
53279 (ore 13.30-14.30 20.30- 
22 ). 

• VENDO per Vie 20 espansio¬ 
ne 8K Ram a L. 50.000 Se inte¬ 
ressati telefonare allo 0881/ 
75494 o scrivere. Dembech An¬ 
tonio. Via E. De Amicis 40 - 
71100 Foggia 


• VENDO home computer Bit 
90 + registratore a sole L 
700.000 trattabili oppure cam¬ 
bio con computer C64 + regi¬ 
stratore. Dolci Davide, Piazza 
Castello 1 - Marta (VT). Tel. 
076188669 (ore 14.30-15.30). 

• VENDESI a prezzi modici 
programmi per Vie 20 inespan¬ 
so (Scienza costruzioni, giochi 
ecc ). Detti Paolo. Via Calabria 
19 - 58100 Grosseto. 

• VENDO per passaggio a siste¬ 
ma superiore, stampante termi¬ 
ca Alphacom 32 per Speetrum 
nuova in imballo originale + 5 
rotoli di carta a L 230.000 + 
spese di spedizione. Di Giusto 
Bruno, Via G B Bassi 18/2 - 
33100 Udine. Tel. 0432/478501. 

• L. 5.000 è l'irrisoria somma 
per acquistare un fantastico 
programma che ti permette di 
creare centinaia di giochi spa¬ 
ziali per il tuo Speetrum 48K. 
Provare per credere! ! Di Loreto 
Mario. Via Andreotto Saracino 
14 - Ostia Lido (Roma). Tel. 
06/5692106. 

• OCCASIONE vendo stam¬ 
pante GP SOS 3 mesi di vita a 
sole L. 270.000. Telefonare ore 
ufficio allo 02/3560313. Tratto 
solo Milano e zone limitrofe. De 


LE INDUSTRIE ANGLO AMERICANE IN ITALIA 
Ul ASSICURANO 
UN AVVENIRE BRILLANTE 


mi pos(n da INGEGNERE anche per Voi 
■ i PQLITECNK i INGLESI Vi permetteranno di studiare a casa 
lustr i (' di i («eseguirà tramite osami. Diplomi 

INGEGNERE regolarmente iscritto nell Ordine Britannico 

una CARRIERA splendida 

ingegneria CIVILE • ingegneria MECCANICA 

un TITOLO ambito 

ingegneria ELETTROTECNICA ingegneria INDUSTRIALE 

un FUTURO ricco di soddisfazioni 

ingegneria RADIOTECNICA ingegneria ELETTRONICA 

• • • 

Per informazioni e consigli senza impegno scriveteci oggi stesso 

BRITISH INST. OF ENGINEERING TECHN. 

Italian Division 10125 Torino Via Giuria 4 T 

Tel 011 • 655 375 (Ore 9 - M) 

Sede Centra (e Londra Delegazioni in tutto il mondo 



RICONOSCIMENTO 
LEGALE IN ITALIA 

in ba\c «Ila leggo 
n 1940 Gaz/ UH n 49 
del 20 2 1963 
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Peccati Roberto, Via Trieste 27 - 
Rollate (MI). 

• VENDO mixer stereo autoco¬ 
struito N.E. in elegante mobile 
completo di preamplificatori a 
richiesta altri optional L. 60.000 
trattabili. Vendo videogioco- 
computer nuovissimo G 7000 
Philips completo di joystick c I 
cassetta omaggio L. 210.000 
trattabili Di Vincenzo Anto¬ 
nello, Via Andrea Barbazza 118 
- 00168 Roma. Tel 06/6281840. 

• CERCO software per Spec- 
trum 48K recente e completo di 
istruzioni originali, solo zone di 
Roma-Latina-Viterbo. Inviare 
lista o telefonare. Del Medico 
Andrea. Via Imbrecciato 124 
B7 A2 - 00149 Roma. Tel 06,' 
54900344 (ore 9-13). 

• COMPRO software di qual¬ 
siasi tipo per ZX Spectrum 16/ 
48K. Inviare lista programmi 
dettagliata con relativi prezzi ed 
eventuali note tecniche. De San- 
tis Claudio, Via Ofanto 142/G - 
71100 Foggia. 

• VENDO in kit o premontati i 
seguenti circuiti: orologio digi¬ 
tale quarzato per auto (12V) 
completo di cronometro 1/10 
sec. e voltmetro digitale con 
CA3161 - CA3I62 a L. 38.000 
cad. Spese di spedizione a mio 
carico e schemi elettrici di cir¬ 
cuiti applicativi (es. amperome¬ 
tro, timer, termometro, ohm¬ 
metro. ecc.) in regalo. Sconti 
per quantitativi. Di Sante Ro¬ 
berto, Via Uruguay 30/2-20151 
Milano. Tel. 02/3083358. 

• OLTRE 10.000 programmi 
per C’ft4. Apple, Ibm C16 colle¬ 
zionista vende software didatti¬ 
co, consulenza per negozi, ac¬ 
cessori vari Dischetti Nashua 
L 3.700. Programmi da L. 
5.000. Domuso Luigi, Via Bel- 
lani 3 - Milano. Tel. 02/6705774. 

• VENDO Vie 20 (120.000), in¬ 
terfaccia registratore (20.000). 
cartridge «Sargon II chess» e 
«Money Wars» (40.000, insie¬ 
me), libro «Alla scoperta del 
Vie 20,> ( 10.000), libro «650Z». 
il microprocessore del Vie 20 
(10.000). A chi compra tutto 
(200.000) regalo 2 cassette C60 
con piu di 30 giochi De Donatis 
Daniele, Via San Rocco 17 - 
Villamagna (CH). Tel 0871/ 
682565. 

• VENDO strumento per sta¬ 
zione CB. misuratore staziona¬ 
rie, accordatore d’antenna, 
wattmetro, misuratore di cam¬ 
po: regalo all'acquirente anten¬ 
na di polo L. 40.000 (nuovo mai 
usato) Duse Guido, Via Forna 
ri 46 - Milano Tel 02/4042949. 

• VENDO calcolatrice da uffi¬ 
cio Logos 43 a L. 250.000 micro¬ 
fono FM senza filo L. 25.000 


calcolatrice tascabile stampante 
scientifica a L. 60.000 il tutto in 
imballo originale; spedizione in 
contrassegno più spese postali. 
Scrivere per accordi. De Marti¬ 
ni Edoardo, Via Vincenzo Ricci 
1/13 - 16122 Genova. 

• VENDO o scambio più di 500 
programmi originali per ZX 
Spectrum Ho le ultime novità 
inglesi: Pitxall II. Kung Fu. 
Knight Lore. Underwulde, 
Sports Hero, S. Chess 3,5, etc. 
D Ignazio Mauro, Via Alessan¬ 
dro Lotti 8 - 57100 Livorno. 

• VENDO Victor 1 con 2 floppy 
da 640K. espanso a 384K Ram, 
linguaggi programmi e manuali¬ 
stica De Vidi Pietro, Via G. 
Galilei 1 - Villorba (TV). Tel. 
0422/381128-919857 (ore se¬ 
rali). 

• VENDO microcomputer N.E. 
alimentatore protetto, bus 
scheda CPU, interfaccia e ta¬ 
stiera esadecimale. interfaccia 
registratore, interfaccia video¬ 
grafica con porta, interfaccia 
floppy, programmatore 
Eprom, driver Tandon TM 100- 
1,32K Ram din + 8K Ram stat., 
tastiera alfanumerica. Dalla 
Pozza Mariano, Via Monte- 
grappa 11 - 24044 Dalmine 
(BG). Tel. 035/561024 (ore se¬ 
rali). 

• ATTENZIONE: amico (por¬ 
tatore di handicap) impossibili 
tato alla costruzione dei seguen¬ 
ti kit, vende: corso completo tc- 
ro/prat Scuola Radio Elettra 
per il montaggio di TV portatile 
b n, oscilloscopio 3" il tutto 
nuovo. Nuova Elettr Kit mon¬ 
tati nuovi con contenitore: pro¬ 
va zener, prova hom altoparlan¬ 
ti. sonda wattmetro, wox con 
antiwox. Nuova Elettr Kit mon¬ 
tati senza contenitore: tempo¬ 
rizzatore tergi regolabile in bat¬ 
tute e velocità, temporizz. tergi 
regolabile in battute, VFO 27/ 
144 Mhz Materiale nuovo com 
pleto di contenitore: compres¬ 
sore microf regolabile, filtro un¬ 
ti TVI 27 Mhz, doppio portara- 
dio estraibile auto/casa. Auto- 
costruito (nuovo) lineare CB 
AM'SSB 50/100 Watt transi¬ 
stor, Autocostruito (nuovo) li¬ 
neare CB AM'SSB 400 Watt 
valvolare, regolabile in tre po¬ 
tenze. Consolle videogiocht a 
colori «Nicole» 28 giochi -t- due 
joystick Ricctrans CB PAL/69 
AM'SSB 69 CH mobile - com¬ 
pleto di mik (usato ottimo). Ri- 
cetrans CB Sommerc AM 23 
CH mobile- completo di mik 
(usato ottimo). Televisore 
«Korting» 6 eh 23” b/n (usato 
ottimo) Riviste annate comple¬ 
te e no: elettr. pratica, elektor, 
cq elettr. elettr viva, break, on¬ 


da quadra, selezione, radio kit. 
Davini Mauro, Via L. da Vinci 
40 - 46019 Viadana (MN). Tel 
0375/81384 (ore pasti). 

• VENDO per TI 9914A: modu¬ 
lo hunt thè wumpus, due casset¬ 
te (della serie adventure): ad- 
ventureland e ghost town, pro¬ 
grammi e listati (anche in extcn- 
ded basic) e cavetto registratore 
doppio (CS2). C'arazza Luca, 
Via Lodi 2 - 10152 Torino, 

• VENDO scambio programmi 
per Commodore 64. Ne ho oltre 
250, fra cui: llulk. Poker Strip. 
The Dallas Quest, Hes Games, 
Summer Games, Missione Im¬ 
possibile. Golf. Bruce Lee, 
Arabian Night, ecc. Colza Ro¬ 
berto, Via Puccini 60 - Sesto 
San Giovanni (MI). Tel. 02/ 
2425392. 

• V'ENDO Vie 20 mai usato + 
guida al personal Vie 20 + cas¬ 
setta con 80 programmi al prez¬ 
zo sbalorditivo di L. 190.000. 
Inoltre vendo programmi su 
cassetta per Vie 20 a prezzi 
stracciati. Inviare lettera con ri¬ 
chiesta di elenco. Campanelli 
Franco, Via Spalvieri 3 - Ascoli 
Piceno. 

• AIUTO cambio tutto ciò che 
ho per computer Atari 400/600/ 
800 e XL solo zona Roma. Cio- 
ni Gian Patrizio, Viale del Vi- 
gnola 23 - Roma. Tel. 06/ 
3601210. 

• AFFARONE... vendo Vie 20 
+ reg. + esp. 32K + Vie Mon + 
Vikit 2 + Vikit 4 + velocizzato- 
re + supergrafica Vie telefono 
+ Vie relè + manuale Vie in 
italiano, libri Vie, libri Basic. 
Centinaia di giochi velocizzati e 
originali lenti (con istruzioni) 
grandi utility 2 totocomputer 
( professionali ) per schedina - 40 
colonne trasforma il 20 in 64 
(schermo) L. 450.000. Calabre¬ 
se Giancarlo - 00151 Roma. 
Tel. 06/538195. 

• ACQUISTO fotocopia ma¬ 
nuale G Pascal della Gambit- 
Games per C64. Crocerossa 
Sandro. Via della Pace 1 - 87040 
Castrolibero (CS) 

• VENDO stazione completa da 
radioamatore - ricevitore Halli- 
crafter -t- trasmettitore som- 
merkamp 500 + alimentatore 
220 volt + rosmetro/wattome- 
tro + antenna sui 10-15-20-40- 
80 m + antenna dipolo L 
1.000.000. Rivolgersi al recapi¬ 
to telefonico 0776/60770 ore se¬ 
rali. Chiarelli Antonio, Via dei 
Normanni 31 - Atina Inf. (FR) 

• CERCO espansioni di memo¬ 
ria, anche se non perfettamente 
funzionanti, e cartridge di utili¬ 
ty (es. Nordcraft, Vie Forth. 
Hes Man ecc.); scambio con 
programmi per lo stesso Vie 20 


tra i migliori in commercio. 
Ampia scelta tra oltre 200 titoli 
e nella quantità richiesta Car- 
rone Vincenzo. Via G. Pascoli 
67 - 86100 Campobasso. 

• A.A.A vendesi programmi 
per CBM64 prezzi modici. Di 
spongo di 100 programmi tutti 
in LM tra utility e giochi. Ri¬ 
spondo a tutti Clemente An¬ 
drea, Via dell'Industria 52 - 
35100 Padova. 

• VENDO per Spectrum 48K 
20 giochi, i migliori, tra cui Atic- 
Atae, Mundial Soccer, O bert. 
Sabre VVulf, Mani! Miner, Toto¬ 
calcio in LM ecc. a sole L. 
25.000. Inoltre posseggo 200 tra 
i migliori giochi da 16-48K. Cle¬ 
mente Luca, Via Santa Giustina 
23 - Palmanova (UD). 

• VENDO Vie 20 + joystick 
Commodore + 2 cartucce + 
corso basic su cassette n.6 + 
tantissimo software su cassette 
+ manuali + riviste + listati 
giochi ecc. a sole 250.000 o cam¬ 
bio con Spectrum. Chelli Stefa¬ 
no, Via L. Quartierin 75 - 55042 
Forte dei Marmi 

• CERCO cablaggi da eseguire 
a domicilio per conto di ditte. 
Serietà. Cagnetta Marco, Via 
Ontani 10 - Milano. Tel. 02/ 
4594135 (ore serali 20.30) o scri¬ 
vere. 

• VENDO per C64 programma 
totocalcio su cassetta elabora si¬ 
stemi integrali condizionati al¬ 
l'uscita dei segni l-X-2. Funzio¬ 
na anche con la stampante. Per 
informazioni rivolgersi a: 
Geom. Caramagno Sebastiano, 
Via Contrada Cipollazzo - 96011 
Augusta (SR). 

• SCAMBIO programmi per 
Spectrum 16/48K, contatterei 
user in zona. Cicalò Arnoldo, 
Via Di Pratale 103 Pisa. Tel. 
050/570384 (ore 21). 

• VENDO videopac computer 
Philips G 7000 con 7 cassette 
stupende a L 380.000 trattabili. 
Eventualmente permuto con 
software per C64 Cappio Filip¬ 
po. Via Repubblica 59 - Biella 
(VC). Tel. 015/31746. 

• VENDO espansione di memo¬ 
ria 8K per Vie 20 4- cartridge 
radar ratrace e road race (gio¬ 
chi ) -I- simon's basic e turbotape 
per C64 su disco e cassetta e 
molti altri giochi per C’64 Ber¬ 
nasconi Ugo, Via Daverio - 
Cantò (CO). Tel. 031/703801 
(ore pasti) 

• VENDO e scambio program¬ 
mi per Spectrum Vendo libro 
per imparare linguaggio mac¬ 
china dello Spectrum e libro per 
usare e programmare l'Apple 
li Bulfone Franco, Via Ciro 
Menotti 2 - Tavagnacco (UD) 
Tel 0432/681359. 
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• VENDO Sinclair ZX8I 1 K + 

sballo + libri valore totale L 



registratore + manuale inglese/ 

1.500.000 in blocco a L. 600.000 



italiano + cassetta giochi + ca- 

o cambio con stampante idonea 



vetti di collegamento e alimen- 

C64. Novelli Mario, Via Ca- 



tatore. Tutto imballato come 

vour 15 - 21013 Gallarale. 



nuovo, usato pochissimo. Re- 

• VENDO programma per 



gaio programmi. Il tutto a L. 

CBM64 elaborazione sistemi 



160.000. Bramati Daniele, Via 

totocalcio da 2 doppie a 13 tri 



A. da Giussano 12 - Monza 

pie assoluta libertà scelta prò- 



(MI). Tel. 039/831343 (solo ore 

nostico correzione d'errori, li 



serali). 

nutazione segni e controllo vin- 



• VENDO ZX Spectrum 48K 

cite, Natale Lorenzo, Piazza S. 



issue 3 con 50 programmi e ma- 

Bargellini 5 - 00157 Roma. 



nuale tutto a L. 350.000 tratta- 

• VENDO ZX Spectrum 48K + 



bili. Telefonare nel pomeriggio 

interfaccia 2 + 100 programmi 



escluso il mercoledì al 2693085. 

scelti tra i migliori (imballi ori- 



Bonelli Diego, Via Caduti di 

ginali) a L 400.000. Vendo 



Piazza Loggia 34 - Botticino Se- 

inoltre ZX interfaccia 1 -1- mi- 



ra (BS) 

crodrive a L 200.000 (tutto co- 



• VENDO 60 eccezionali giochi 

me nuovo). Martinelli Vincen- 



su cassetta (tra cui B.C.. calcio. 

zo. Trav. IV N.20 Buffalora - 



Zaxxon, Tarz.an, Popeye, De- 

25010 Brescia. Tel 030/364457 



cathlon. Baseball, Triad 62 e 

(ore serali) 



Basket) per CBM 64 a sole L. 

• VENDO ZX Spectrum 48 K 



50.000!!! Affrettatevi ! Bonda- 

con 1 interfaccia joystick. 1 joy- 



valli Andrea, Viale Venturini 1 

stick box sonoro e uno stabiliz- 



- Brescello (RE). 

zatore e un sacco di programmi 



• VENDO diverso materiale 

a L. 450.000 solo un anno di 



GB causa cambio frequenza: 3 

vita. Marchiello Elio, Via S. 



TRX. 1 roswattmetro, 1 match 

Donato - 55100 Lucca. 



box. 4 antenne, 1 commutatore 

• COMMODORE Computer 



d’antenna, 1 lineare da auto 

Club Perugia cerca soci in tutta 



100-50W. Bassignana Raffaele, 

Italia. Iscrizione L. 3.000 men- 



Via Rovani 97 - Sesto S. Gio- 

sili Favolose iniziative: video- 



vanni (MI). Tel 02/2471116 

gare mensili, sconti sui prò- 



(ore pasti). 

grammi per CBM 64. Ultime 



• VENDO tutto il software per 

novità: Pit stop 2, Ghostbuster, 



il TI 99. 200 programmi registra- 

Rocky. Merlim Simone, Via 



ti su cassette a solo 500 l’uno. 

Baglioni 24 - 06100 Perugia. 



Regalo libri e materiale vario 

Tel. 075/61580. 



sul T199 e Basic a chi acquista il 

• NOVITÀ ora il tuo computer 



blocco. Barca Giuseppe, Via 

può anche sviluppare le espres- 



I re Re 29 - 20047 Brugherio 

sioni algebriche Costo del prò- 



(MI). 

gramma con manuale: per 



• VERA occasione, vendo in- 

CBM 64 I 33.000; per Vie 20 + 



terfaecia programmabile Ten- 

espansione L. 26.000; per Spec- 



kolek a L 70.000 + spese posta- 

tram 48 K. L. 27.000 Prenotate- 



li Corredata da istruzioni in ita- 

vi! Montalto Aldo, Via A. Zupi 



liano e software Paccapeli 

19 - 87100 Cosenza. 



Marco, Via Conca 19 - Torrette 

• SCAMBIO software per 



di Ancona. 

Spectrum circa 400 programmi 



• VENDO memorie Eprom 

sia games sia utility. Chiedere o 



2708-2716-2532-2732-2764 ver 

spedire lista annuncio sempre 



gini e funzionanti, memorie 

valido. Mele Teresa. Via Mal- 



Rum 2114 c 4116 tutte ex video- 

teotti 76 - 84036 Sala Consilina 



games. Cedo inoltre schede 

(SA). Tel 0975/21041 (ore 



vecchie ricche di integrati, tran- 

22.00(. 



sistor ecc. Pasquini Manuel, 

• VENDO per Amstrad nuovis- 



Via Sport 13 - Brani (PV). Tel 

simi programmi appena arrivati 



0385/51616 (ore pasti). 

dall’Inghilterra. Maraucci Pao- 



• VENDO per CBM 64 nume- 

lo. Via T. Schiva 11 18100 Ini- 



rosi programmi tutti duplicabi- 

pena. Tel. 24176. 



li. sia games sia utilitv. I prezzi 

• VENDO corso completo Pan- 



variano da L. 5.(XX) a L. 20.000, 

nelli Solari 320.000. Per CBM 



sconti per acquisti superiori al- 

64 vendo 300 programmi utility 



l'unità Scrivere o telefonare 

500.000 non originali Oppure 



(ore pasti) massima serietà. 

20programmi L. 26.000ognuno 



Niccoli Gianluca, Via Macallè 

su cassette, su disco L. 24.000. 



IU3 - l’istoia. Tel. 0573/57( 1741 

Specificare. Spedizione con- 



• VT NDO Vie 20 L. 100 "'MI - 

trassegno. Manfroni Roberto, 



espansione 3-8-16 modilicata 

Via B Buozzi 4 - 00049 Velletri 



per copie cartridge I 100.000 

(Roma). Tel 06/9636898. 



+ altri accessori + cassette gio- 

• CERCO amici che possiedo- 



chi e programmi a prezzo da 

no ZX Spectrum per scambi di 



34170 GORIZIA - CORSO ITALIA. 149 TELEFONO 0481/30909 

SinCLAIR QL pronta consegna 

chiodare prezzo Inl-eroestintissimo 


zx spectrum 


Disponibili tutte le parti di ricambio (ULA - ROID 2TX 
213/313 quarzi - parti della tastiera - ecc.) richiedeteci lista 
con prezzi 

Registratore per dati Inno-Hit L 74 000 
Registratore per V1C 20 e OBITI 64 t. 75 000 
Interfaccia per Joustlck proaranunqbii e L 78 000 
Joystick Cr-ackshot L 15 000 

Tastiera Kempston predisposta per microdrivecon barra 

spazio e tre programmi in omaggio L 170 000 

Stampante Albhocom L 230 000 

Digital Tracer L 150 000 

Espansione a 48 K per versione 2 e 3 L 78 000 

Spectrum I6K e 48 K - Interfaccia I e microdrive - 

richiedete prezzi 

Floppy disk (scatola da 10) tutti con anello di rinforzo 

TIPO nashua ITVomorex 3m-Scotch 

SF-SD 40 000 50 000 55 000 

DF-DD 58 000 68 000 68 000 

Kit 3m per la pulizia delle testine del vostro drive L 55 000 


appi© © compatìbili 

Tastiera professionale 90 tasti ♦ 50 comandi basic ♦ 12 
tasti funzione + 10 tasti de finibili da voi Lire 298 000 
Tavoletta grafica completa di software L 235 000 
Tako un click e potrete usare l'altra faccia del vostro dischetto 
a L 25 000 

Disk Drive slim L 450 000 
Do ppio controller L 100 000 
l.anguage card 16 K L 110 000 
Z-80 p er CP/m L 118 000 
80 colonne con soft switch L 220 000 
Su per Serial Card L 170 000 

Programmatore di EPROm (2716-2732-2764) L 120 000 
Scheda Pai Color con suono 95 000 
17.8 K RADI L 380 000 

Wild Card per Apple II plus e compatibili (per copiare tutti I 
programmi) L 90 000 

Replay : la piu' potente scheda per copia per Apple 11 plus e 

compatibili L 158 000 

Joystick autocentranti L 42 000 

monrroB 

monitor 12" fosfori verdi antiriflesso L 220 000 
monitor 12" fosfori gialli antlriflesso L 240 000 
mon itor a colori ingresso PAL e audio L 538 000 

Solo per Apple ile 

Espansion e 64K ♦ 80 colonne L 220 000 


Vendita per corrispondenza Tutti i prezzi indicati 
comprendono l'IVA nessuna spesa di spedizione per ordini 
superiori alle L 50 000 Prezzi soggetti a variazioni 

VISITATE IL nOSTRO COmPUTER SHOP PER TROVARE 
TUTTE LE nOVITA 1 - GORIZIA - CORSO ITALIA 149- 
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programmi e idee Massima se¬ 
rietà. Mazzanti Francesco, Via 
Santucci 23 - 48100 Ravenna. 
Tel. 0544/463872 (dalle ore 
13.30 alle 21.00). 

• AFFARONE! Vendo Vie 20 
+ espansione 16K + cavi e ali¬ 
mentatore + 10 cassette con i 
più famosi arcade + manuale di 
istruzioni per il V'ic. in italiano 
+ 3 libri contenenti più di 50 
videogiochi T 3 cassette per im 
parare a programmare: valore 
oltre L. 450.000, io lo vendo a 
L. 275.000. Masini Emiliano, 
Via Romiano 82 - S. Donato 
Ponte a Egola (PI) 

• VENDO Vie 20 + 16K. Ram + 
3 cartridge (Gorf. Sargon II 
Chess. The Count) in perfette 
condizioni completo di tutti gli 
accessori in più giochi eccezio¬ 
nali (più di 50 anche in L.M.) e 
utilità. Vendo anche separata- 
mente. Cedo tutto a L. 350.000. 
Miano Lorenzo, Via S. Panagia 
136/1 - 96100 Siracusa. Tel. 
0931/56699. 

• CERCO stampante da abbi¬ 
nare a Spectrum se vera occa¬ 
sione Possibilmente non pezzo 
di “antiquariato” completa di li¬ 
bri istruzioni e schemi. Mangia- 
tordi Piero. Via G. Torti 113 
rosso 16143 Genova 


• FAVOLOSO! Apparecchio 
CB-Midland Alan 34 + micro¬ 
fono preamplificato Turner + 3 
+ rosmetro/watt Zetagi. La- 
fayette HB 23 + rosmetro Han 
sen. Amplificatore lineare. Mi¬ 
croset 45 watt in AM. 90 watt in 
SSB Prezzo da convenirsi. Per 
informazioni telefonare allo 
090/2938626 c chiedere di Enzo. 
Musicò Vincenzo, Via Paolo 
Blandino 12 - Messina. 

• VENDO causa passaggio si¬ 
stema supcriore Commodore 
Vie 20, un anno di vita + 2 car¬ 
tucce Pac Man, Speed Bingo 
Matt + 5 cassette da registrato- 
re con ??? e utility + joystick e 
varie riviste sui Vie 20. L. 
170.000 trattabili. Mungo Ste- 
gano, Via Val Pellice 51 - Ro¬ 
ma. Tel. 06/8124044. 

• PER CAMBIO sistema vendo 
Spectrum 48K + interface 1 + 2 
microdrive + 8 supporti magne¬ 
tici + GP 100A + RS 232 + 
registratore 50 cassette pro¬ 
grammi in blocco L. 1.700.000. 
Separatamente chiedere quota¬ 
zioni. Marcili Alessandro, Via 
Del Lavoro 40 - 21050 Busto 
Arsizio. Tel 0331/631224. 

• VENDO programma allinea¬ 
mento testina driver 1541 con 
manuale c due dischi I 10O 000 


Ritagliare e spedire in busta chiusa 
Annunci di RadioELETTRONICA 
20122 Milano - Corso Monforte 39 



Cognome . 

Nome . 

Via . 

Città . 

Testo dell'annuncio 



Sono abbonato 


Sì □ 


No □ 


Verranno pubblicati 
solo gli annunci scritti 
in stampatello 
o a macchina 


V 


4- manuale e disco per sproteg- 
gerc e copiare programmi su¬ 
perprotetti Landini Leonardo, 
Via Corcos 5 - 50142 Firenze. 
Tel 055/714360. 

• VENDO drago 32K + regi¬ 
stratore + 15 videogiochi + 
screen editor + 3 libri sul dra- 
gon + 2 joystick + vari listati, il 
tutto come nouvo a prezzo da 
concordare. Inoltre cambio 
vendo 1000 programmi per il 
Commodore 64. Telefonare 
dalle 15 alle 19 di ogni giorno. 
Lacaita Piero, Via Palestra 50 - 
74020 Torncella (TA). Tel. 099/ 
65304 

• VENDO ZX8I + espansione 
16K manuali e due libri in italia¬ 
no + due cassette giochi e casset¬ 
ta scacchi per L. 300.000 oppure 
cambio con telescrivente o 
RXTX CB dello stesso valore. 
Accetto anche pagamento ratea¬ 
le! Videogioco + 20 giochi L. 
150.000. I.abanti Stefano, Via 
Franciosini Lorenzo 5 - Castel- 
fiorentino (FI). Tel. 0571/64559. 

• GELOSO RX e TX cerco, di 
qualsiasi tipo anche se non fun¬ 
zionanti purché completi, cerco 
anche parti staccate Geloso e 
registratori Geloso G 256 e pre¬ 
cedenti, cerco ricevitore AR18. 
Vendo videoterminale Olivetti 
TCV 260 con tastiera. Circolo 
Culturale Laser, Casella Posta¬ 
le n.62 - Sassuolo (MO). 

• VENDO Videopac G 7000 
con IO cassette oppure permuto 
con Spectrum 48K Offerta van¬ 
taggiosa. Telefonare ore pasti 
tutti i giorni tranne sabato e do¬ 
menica al numero 06/5561860. 
Lo Grasso Gianluca, Via L.G. 
Tevere Inventori 60 - Roma. 

• VENDO programmi per il 
C64, giochi come Basket, De¬ 
cathlon. B.C., Burger tiine, 
Falcon Patrol, Soccer, Fort 
Apocalipse e tanti altri (oltre 
100). Seguono programmi utili 
e interessanti: Koala Pad. Ma¬ 
gic Desk. Word Processor, Si¬ 
mon Basic, Easycale, Sam Reci- 
ter, Scacchi, Data Base 64, Mu¬ 
sic Master. Scrivere Prezzi mo¬ 
dici. Liquori Michele, Via Bot- 
ticelli 11 - Aversa (CE) 

• VENDO Commodore Vie 20 
mai usato con joystics c cassette 
giochi, per registratore. Tutto a 
L. 400.000. Per informazioni 
scrivere, e non accetto telefona¬ 
te Laterza Gabriella. Via Giar¬ 
dini Convento 20 - Pulsano. 

• PER C64 vendo manuale e 
disco per sprotezione e copiatu¬ 
ra programmi da disco, nastro e 
cartuccia. Prezzo L. 65.000. 
Landini Leonardo, Via Corcos 
5 - 50J42 Firenze. Tel. 055/ 
714360 (ore pasti). 

• SCAMBIO programmi per 


Commodore 64 e 16 su nastro o 
disco e per ZX Spectrum su na¬ 
stro. Lattuada Maurizio, Via 
Pamzzi 13 - 20146 Milano. Tel. 
02/427890 (ore pasti). 

• VENDO programmi per 
CBM64 solo su disco a L. 10.000 
cadauno, compreso disco. Tele¬ 
fonare per accordi ore serali op¬ 
pure scrivere. Caudino Gianni, 
Via Graglia 18 - IO 136 Torino. 

• È NATO a Cava de Tirreni il 
nuovo Commodore Club Com 
puter. Per iscrizioni L. 1000, in 
regalo la tessera e un program¬ 
ma (includere francobolli) Gai- 
di Alfonso, Via S Pietra 47 - 
Nocera Superiore (SA). 

• COMPRO gioco del calcio 
spettacolo per CBM 64, se è 
possibile registrato su cassetta. 
Grasso Mario, Via Barbagallo 
80 - Pianoapi-Acireale (CT). 
Tel. 095/885773 

• VENDO accensione elettroni¬ 
ca, cercametalli, tester, oscillo¬ 
scopio, alimentatore, fotome¬ 
tro, fotoesposimetro, timer, ra¬ 
diosveglia, TVcolor 14", TV ga¬ 
me, oscillatore modul. piastra 
giradischi, registratore, salda¬ 
tore, survolatore, trapano, in¬ 
granditore, fotocamera, com¬ 
pressore, binocolo. Giuffrida 
Gaetano, Via L. da Vinci 6 - 
95010 S. Venerino (CT). 

• VENDO a prezzo trattabile 
giradischi con due casse in otti¬ 
mo stato Gosio Stefano, Via 
A. Diaz 17 - Cavaria (VA). 

• TUBO catodico fosfori verdi 
12 pollici, nuovo mai usato, 
vendo con fotocopie circuito 
stampato ed elenco componenti 
per costruzione monitor L. 
50.000 T spese spedizione, op¬ 
pure cambio con espansione 
16K per ZX81 Gazzaniga Ro¬ 
berto, Via Cavour 13 - Rivanaz- 
zano. Tel 0383/92354. 

• VENDO Fai da te" rilegati 
color verde semestralmente 
1973-1978; •‘Elettronica prati¬ 
ca" 1977-2 voi.; “Radio Elettro¬ 
nica" 1977 2 voi. L. 850.000 
trattabile unico blocco. Panno- 
ne Mario. Via Pesa 4 Fraz. La 
Cura - 01019 Vetralla (VT). 
Tel. 0761/471063. 

• AFFARISSIMO 1 mese di vi¬ 
ta vendo: C64 Drice 1541 
Monitor Antarex (colori alta ri¬ 
soluzione), Tavola grafica Sun- 
com L. 1.500.000 In omaggio 
libri e giochi su disco per un va¬ 
lore di L. 200.000. Piron More 
no. Via Temanza 12 Padova 
Tel. 049 616707. 

• VENDO scambio programmi 
per Commodore 64 su cassetta. 
Gregnamn Massimiliano, Via 
XXV aprile 4 - 10036 Settimo 
Torinese (TO) Tel 01 1/ 
8010392 (ore 18-20). 
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Servizio programmi, 
kit e circuiti stampati 


CASSETTE PROGRAMMI 

Codice Prezzo Quantità Lire 

unitario 

REP 01/05 20 000 . 

ZX81 

• Bioritmi • Codice fiscale • Salvadanaio 

REP 02/06 20.000 . 

ZX81 

• Bombardiere • Formula uno • Meteore • Il numero nascosto 

• Segnatempo • L'ispira spire • Esplosione 

REP 03/07 20 000 . 

ZX81 

• Bowling • Tutti i numeri della partita 

• Simon • Riflesso a doppio laser • Fantasmi 

REP 05/12 20.000 . 

ZX81 e SPECTRUM 

• Filtri senza segreti • La grande sfida 

• Bersaglio 

REP 06/01 20.000 . 

ZX81 e SPECTRUM 

• Formule • Marylin • Bioritmi 1K 

• Salto del muro • A domanda risponde 

REP 07/02 20 000 . 

ZX81 e SPECTRUM 

• Frogger • Equivalenze • Caccia al numero 

• Stringhe • Corse cavalli 

REP 08/09 25 000 . 

COMMODORE 64 

• Gestione di un campionato di calcio a 16 squadre 
Cassetta □ Floppy □ 


20 000 


REP 09/11 

ZX81 e SPECTRUM 

• L'ìsola del prof • Videoatelier • Superagenda • Elicottero 

• E le stelle stanno a guardare 


REP 10/12 
SPECTRUM 48 K 

• Bobo game • Sincircuit 


25.000 


REP 10/01 
SPECTRUM 48 K 

• Super 4 


15.000 


REP 11/02 
SPECTRUM 48 K 

• Corsa a ostacoli 

• Calcolo combinatorio 


15.000 


REP 12/03 

SPECTRUM 48 K 

• Defender • Data base per componenti 


12 000 


REP 13/03 

Commodore 64 - CASSETTA 

Sintetizzatore musicale 


12.000 


15.000 


REP 14/03 
Commodore 64 • Disco 

Sintetizzatore musicale • Data base per biblioteca 


I KIT. LE DISPONIBILITÀ 


REK 04/04 14 500 . 

Alimentatore duale per l'ampli di RE&C 3.82 (± 35 V, 4A) 


REK 05/04 10.000 

Alimentatore per il preampli di RE&C 3.82 (24 V, 1A) 







































































REK 06/04 

Mixer RIAA modulare, 1 modulo 

13.500 . 

REK 10/09 

Gli strumenti di RE&C 

Millivoltmetro ampliscope & tracer 

38.000 . 

REK 12/11 

Gli strumenti di RE&C 

Generatore a onda sinusoidale e quadra 

72.000 . 

REK 13/11 

26.000 . 

Frecciobip, indicatore di direzione per due ruote 

REK 14/12 

40.000 . 

Super timer robot, programmatore accensione e spegnimento 

REK 17/02 

Gli strumenti di RE&C 

Voltmetro a Led per 16/01 

24.000 . 

REK 18/03 

Semaforo antiTut 

18.000 . 

REK 20/03 

Psicoluci 3 canali, 800W per canale 

23.000 . 

REK 21/04 

Gli strumenti di RE&C 

Wattmetro RF (1,5 mW 15 W) 

30.000 . 

REK 23/04 

Ampli superbassi 

15 000 . 

REK 31/09 

Trasmettitore CB 1W 

18.000 . 

REK 34/11 

Ricevitore CB supereterodina 

26.000 . 

REK 39/01 

12.000 . 

Babyricevitore OM funziona senza batterie 

REK 40/02 

Hardware Spectrum 

Interfaccia joystick 

32.000 . 

REK 40/05 

Hardware Vie 20 

Superscheda mother board 

112 000 . 


REK 41/02 

Supersirena 16W 

22.000 . 

REK 41/07 

Hardware Vie 20 

Espansione 8kB (senza RAM) 

32.500 . 

REK 42/07 

Hardware Vie 20 

Espansione 16 kB (senza RAM) 

37.500 . 

REK 43/02 

Modulo amplirivelatore 

10.000 . 

REK 43/07 

Hardware Vie 20 

Espansione 24 kB (senza RAM) 

42.500 . 

REK 44/07 

Ricevitore panoramico a super-reazione 

49.500 . 

RACK 

Gli strumenti di RE&C 

85.000 . 

Maxicontenitore modulare per tutti gli strumenti 

REK 46/12 Kit 

Hardware Vie 20 e C64 

Penna ottica 

22.000 . 

REK 47/01 Kit 

Hardware Vie 20 e C64 

Casa automatica (P I E.M ) 

90000 . 

LE BASETTE IDDEAUBASE 

Mini singolo (6.6x6.1) 

4500 . 

Mini 5 pezzi 

15000 . 

Maxi singolo (6,6x10,7) 

6000 

Maxi 5 pezzi 

25.000 . 

1 CIRCUITI STAMPATI 

RE 201/02 

BICICLOMETRO 

10.000 . 

contachilometri elettronico per bicicletta (4circuiti) 


Più contributo fisso per spese postali L. 3.000 
TOTALE LIRE. 


I 


I 


Cognome 


Nome 


Via 



Cap. 

Città 

Prov. 

Data 

Firma 




Scelgo la seguente formula di pagamento: 
□ allego assegno di I_ 


non trasferibile intestato a Editronica srl. 


□ allego ricevuta versamento di L. 


sul cc/p n. 19740208 intestato a Editronica 


srl - Corso Monforte 39 - 20122 Milano 


□ pago fin d’ora l’importo di L. 
_ scadenza _ 


con la mia carta di credito BankAmericard N. 


autorizzando la Banca d’America e d’Italia ad addebitarne 


l'importo sul mio conto BankAmericard. 


Compilare e spedire questa pagina a: Editronica srl - 
Servizio circuiti stampati e kit di RadioELETTRONICA - Corso Monforte 39 - 20122 Milano a 













































































Il oiacere 
icegliere. 


e 

e 

Si 



Distribuito da: 

IH ^ MELCHIONI 
■ S S COMPUTERTIME® 

Viale Europa, 49 - 20093 COLOGNO MONZESE (MI) 

Tel. (02) 2538621 (5 linee rie. aut.) - Telex METIME I 310352 



Il super 

personal computer. 


SHARP è alta tecnologia 
e tradizionale affidabilità 
nei personal computer e 
nell’office automation. 

MZ-700 

* CPU Z80A, memoria RAM 
64 KB, unità cassetta 
integrata, tastiera con 5 tasti 
funzione e cursori * opzioni: 
plotter 4 colori, floppy disk 
5” 1/4 da 320 KB, RAM file 
32 KB autoalimentata 

MZ-3500 

* 2 CPU, memoria RAM fino 
a 256 KB, video a fosfori 
verdi o a colori, tastiera con 
10 tasti funzione * floppy 
disk 5” 1/4 da 386 o 800 KB 

* opzione: hard disk da 10 
MB 


MZ-3500 
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